perm filename FUZZY.LAP[RUT,LSP] blob
sn#343725 filedate 1978-03-22 generic text, type T, neo UTF8
(LAP ACCUM: FSUBR)
(HRRZ@ 4Q 1Q)
(MOVEI 3Q (QUOTE CDDDDR) S)
(MOVEI 2Q (QUOTE ACCUM:) S)
(HLRZ@ 1Q 1Q)
(JCALL 4Q (E ZPROCN) S)
NIL
(LAP ADD FSUBR)
(PUSH P 1Q)
(HRRZ@ 5Q 1Q)
(HLRZ@ 4Q 1Q)
(MOVEM 4Q 0Q P)
(PUSH P 5Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(MOVE 1Q 4Q)
(CALL 1Q (E ZPROC?) S)
(MOVEM 1Q 0Q P)
(JUMPN 1Q TAG6)
(MOVE 1Q -2Q P)
(CALL 1Q (E ZINST) S)
(PUSH P 1Q)
(MOVE 2Q -2Q P)
(JUMPE 2Q TAG10)
(HLRZ@ 1Q 2Q)
(CALL 1Q (E *EVAL) S)
(MOVE 2Q 1Q)
(JRST 0Q TAG7)
TAG10 (MOVE 2Q (SPECIAL ZHIGH) S)
TAG7 (POP P 1Q)
(CALL 2Q (E ZADD) S)
(JRST 0Q TAG2)
TAG6 (HLRZ@ 1Q -1Q P)
(MOVEM 1Q -1Q P)
(CALL 1Q (E ATOM) S)
(JUMPN 1Q TAG12)
(MOVE 1Q -1Q P)
(CALL 1Q (E *EVAL) S)
(MOVEM 1Q -1Q P)
TAG12
TAG1 (MOVEI 2Q (QUOTE PDEF) S)
(MOVE 1Q -1Q P)
(CALL 2Q (E GET) S)
(JUMPN 1Q TAG14)
(PUSH P (C 0Q 0Q TAG15 0Q))
(PUSH P -2Q P)
(MOVEI D (QUOTE " IS NOT A PROC") S)
(PUSH P D)
(MOVNI 6Q 2Q)
(JCALL 16Q (E ZERROR) S)
TAG15 (MOVEM 1Q -1Q P)
(JRST 0Q TAG1)
TAG14 (HRRZ@ 2Q 0Q P)
(MOVE 1Q -1Q P)
(CALL 2Q (E MEMB) S)
(JUMPE 1Q TAG16)
(MOVE 1Q -1Q P)
(JRST 0Q TAG2)
TAG16 (MOVE 1Q 0Q P)
(CALL 1Q (E LAST) S)
(PUSH P 1Q)
(MOVE 1Q -2Q P)
(CALL 1Q (E NCONS) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(CALL 2Q (E ZPLACD) S)
(MOVE 5Q (SPECIAL ZTRACEDFNS) S)
(JUMPE 5Q TAG20)
(MOVEI 4Q (QUOTE 0Q))
(MOVE 3Q -1Q P)
(MOVEI 2Q (QUOTE NIL))
(MOVEI 1Q (QUOTE (ADD NET)) S)
(CALL 4Q (E ZBREAK1) S)
TAG20 (MOVE 1Q -1Q P)
TAG2 (SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP ZADD SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(CALL 2Q (E CONS) S)
(MOVEM 1Q -1Q P)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(HRRZ@ 2Q (SPECIAL ZNET) S)
(CALL 2Q (E MEMBER) S)
(JUMPN 1Q TAG2)
(HLRZ@ 1Q -2Q P)
(CALL 1Q (E ZREMOVE) S)
(MOVE 2Q (SPECIAL ZNET) S)
(MOVE 1Q -1Q P)
(CALL 2Q (E ZMEMBN) S)
(HRRZ@ 2Q 1Q)
(MOVEM 1Q 0Q P)
(MOVE 1Q -2Q P)
(CALL 2Q (E CONS) S)
(MOVE 2Q 1Q)
(MOVE 1Q 0Q P)
(CALL 2Q (E ZPLACD) S)
(HLRZ@ 1Q -2Q P)
(CALL 1Q (E ZATOMS) S)
(PUSH P 1Q)
TAG1 (MOVE 5Q 0Q P)
(JUMPE 5Q TAG14)
(HLRZ@ 1Q 5Q)
(HRRZ@ 5Q 5Q)
(MOVEM 1Q 0Q P)
(PUSH P 5Q)
(MOVE 2Q (SPECIAL ZINDEX) S)
(CALL 2Q (E GET) S)
(MOVEM 1Q -2Q P)
(JUMPN 1Q TAG16)
(MOVEI 2Q (QUOTE 0Q))
(CALL 2Q (E CONS) S)
(CALL 1Q (E NCONS) S)
(MOVE 3Q (SPECIAL ZINDEX) S)
(MOVE 2Q 1Q)
(MOVEM 1Q -2Q P)
(MOVE 1Q -1Q P)
(CALL 3Q (E PUT) S)
TAG16 (HLRZ@ 1Q -2Q P)
(MOVEM 1Q -1Q P)
(HRRZ@ 1Q 1Q)
(CALL 1Q (E ADD1) S)
(MOVE 2Q 1Q)
(EXCH 1Q -1Q P)
(CALL 2Q (E ZPLACD) S)
(MOVE 2Q -2Q P)
(MOVE 1Q -3Q P)
(CALL 2Q (E ZMEMBN) S)
(HRRZ@ 2Q 1Q)
(MOVEM 1Q -2Q P)
(MOVE 1Q -4Q P)
(CALL 2Q (E CONS) S)
(MOVE 2Q 1Q)
(MOVE 1Q -2Q P)
(CALL 2Q (E ZPLACD) S)
(POP P -1Q P)
(JRST 0Q TAG1)
TAG14 (SUB P (C 1Q 0Q 1Q 0Q))
(MOVE 5Q (SPECIAL ZTRACEDFNS) S)
(JUMPE 5Q TAG20)
(MOVEI 4Q (QUOTE 0Q))
(MOVE 3Q -2Q P)
(MOVEI 2Q (QUOTE NIL))
(MOVEI 1Q (QUOTE (ADD NET)) S)
(CALL 4Q (E ZBREAK1) S)
TAG20
TAG2 (MOVE 1Q -2Q P)
(SUB P (C 3Q 0Q 3Q 0Q))
(JCALL 1Q (E ZCAR) S)
NIL
(LAP ZADDPROP SUBR)
(PUSH P 2Q)
(MOVE 2Q 3Q)
(PUSH P 1Q)
(PUSH P 3Q)
(CALL 2Q (E ZGET) S)
(MOVE 2Q -2Q P)
(CALL 2Q (E XCONS) S)
(POP P 3Q)
(MOVE 2Q 1Q)
(POP P 1Q)
(SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 3Q (E ZPUT) S)
NIL
(LAP ZAND FSUBR)
(MOVEI 3Q (QUOTE T) S)
(MOVE 2Q (SPECIAL ZHIGH) S)
(JCALL 3Q (E ZANDOR) S)
NIL
(LAP ZANDOR SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(HLRZ@ 5Q 1Q)
(CAIE 5Q (QUOTE THRESH:) S)
(JRST 0Q TAG6)
(CALL 1Q (E CADR) S)
(CALL 1Q (E *EVAL) S)
(HRRZ@ 5Q -5Q P)
(HRRZ@ 5Q 5Q)
(MOVEM 1Q 0Q P)
(MOVEM 5Q -5Q P)
(JRST 0Q TAG5)
TAG6 (MOVE 5Q (SPECIAL ZLOW) S)
(MOVEM 5Q 0Q P)
TAG5
TAG1 (HLRZ@ 1Q -5Q P)
(CALL 1Q (E *EVAL) S)
(MOVEM 1Q -1Q P)
(CAMN 1Q (SPECIAL FAIL) S)
(JRST 0Q TAG12)
(CALL 1Q (E ZVALZ) S)
(MOVE 2Q 0Q P)
(MOVEM 1Q -2Q P)
(CALL 2Q (E *LESS) S)
(JUMPE 1Q TAG11)
TAG12 (MOVE 1Q (SPECIAL FAIL) S)
(JRST 0Q TAG2)
TAG11 (MOVE 5Q -3Q P)
(JUMPE 5Q TAG13)
(MOVE 2Q -4Q P)
(MOVE 1Q -2Q P)
(CALL 2Q (E *LESS) S)
(JUMPE 1Q TAG15)
(MOVE 5Q -2Q P)
(MOVEM 5Q -4Q P)
TAG15 (JRST 0Q TAG10)
TAG13 (MOVE 2Q -4Q P)
(MOVE 1Q -2Q P)
(CALL 2Q (E *GREAT) S)
(JUMPE 1Q TAG16)
(MOVE 5Q -2Q P)
(MOVEM 5Q -4Q P)
TAG16
TAG10 (HRRZ@ 5Q -5Q P)
(MOVEM 5Q -5Q P)
(JUMPN 5Q TAG1)
(MOVE 1Q -1Q P)
(CALL 1Q (E ZVALV) S)
(MOVE 2Q -4Q P)
(CALL 2Q (E ZCONS) S)
(JRST 0Q TAG2)
TAG2 (SUB P (C 6Q 0Q 6Q 0Q))
(POPJ P)
NIL
(LAP ASSERT FSUBR)
(PUSH P 1Q)
(HLRZ@ 1Q 1Q)
(PUSH P (SPECIAL APROCS) S)
(PUSH P (SPECIAL ZSAVE) S)
(CALL 1Q (E ZINST) S)
(PUSH P 1Q)
(HRRZ@ 2Q -3Q P)
(JUMPE 2Q TAG2)
(HLRZ@ 1Q 2Q)
(CALL 1Q (E *EVAL) S)
(MOVE 2Q 1Q)
(JRST 0Q TAG1)
TAG2 (MOVE 2Q (SPECIAL ZHIGH) S)
TAG1 (POP P 1Q)
(CALL 2Q (E ZADD) S)
(MOVE 3Q 1Q)
(MOVE 2Q -1Q P)
(POP P 1Q)
(SUB P (C 2Q 0Q 2Q 0Q))
(JCALL 3Q (E ZCALLEM) S)
NIL
(LAP ZATOMS SUBR)
(CLEARM 5Q (SPECIAL ZTEMPV) S)
(CALL 1Q (E ZATOM1) S)
(MOVE 1Q (SPECIAL ZTEMPV) S)
(POPJ P)
NIL
(LAP ZATOM1 SUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG5)
(MOVE 5Q -1Q P)
(JUMPE 5Q TAG7)
(MOVE 1Q 5Q)
(CALL 1Q (E LITATOM) S)
(JUMPE 1Q TAG7)
(MOVEI 2Q (QUOTE NOHASH) S)
(MOVE 1Q 5Q)
(CALL 2Q (E GET) S)
(JUMPN 1Q TAG7)
(MOVE 2Q (SPECIAL ZTEMPV) S)
(MOVE 1Q 5Q)
(CALL 2Q (E MEMB) S)
(JUMPN 1Q TAG7)
(MOVE 2Q (SPECIAL ZTEMPV) S)
(MOVE 1Q -1Q P)
(CALL 2Q (E CONS) S)
(MOVEM 1Q (SPECIAL ZTEMPV) S)
TAG7 (JRST 0Q TAG4)
TAG5 (HLRZ@ 1Q -1Q P)
(MOVEM 1Q 0Q P)
(CALL 1Q (E LITATOM) S)
(JUMPE 1Q TAG17)
(MOVEI 2Q (QUOTE ZPATF) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E GET) S)
(JUMPN 1Q TAG16)
TAG17 (MOVE 2Q -1Q P)
(MOVEI 1Q (QUOTE ZATOM1) S)
(PUSHJ P *MAPC)
(JRST 0Q TAG4)
TAG16 (MOVEI 2Q (QUOTE (*AND *CON)) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E MEMB) S)
(JUMPE 1Q TAG20)
(HRRZ@ 2Q -1Q P)
(MOVEI 1Q (QUOTE ZATOM1) S)
(PUSHJ P *MAPC)
(JRST 0Q TAG4)
TAG20 (MOVEI 2Q (QUOTE (*ANY *NOT *R)) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E MEMB) S)
(JUMPE 1Q TAG21)
(HRRZ@ 1Q -1Q P)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E ZATOM1) S)
TAG21
TAG4 (MOVEI 1Q (QUOTE NIL))
(SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP BACK FSUBR)
(PUSH P 1Q)
(CALL 1Q (E ZSETV) S)
(CAME 1Q (SPECIAL Z*NIL*) S)
(JRST 0Q TAG2)
(MOVE 5Q (SPECIAL FAIL) S)
(MOVEM 5Q (SPECIAL ZVALUE) S)
TAG2 (CLEARM 5Q (SPECIAL THROW) S)
(MOVEI 5Q (QUOTE BACK) S)
(MOVEM 5Q (SPECIAL CATCH) S)
(MOVEI 1Q (QUOTE THROW) S)
(SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 1Q (E ERR) S)
NIL
(LAP BIND FSUBR)
(PUSH P 1Q)
(HLRZ@ 1Q 1Q)
(PUSH P 1Q)
(HRRZ@ 1Q -1Q P)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E *EVAL) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 2Q (E ZSET) S)
NIL
(LAP BIND! FSUBR)
(PUSH P 1Q)
(CALL 1Q (E CADR) S)
(CALL 1Q (E *EVAL) S)
(PUSH P 1Q)
(HLRZ@ 1Q -1Q P)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG5)
(MOVE 2Q 0Q P)
(HLRZ@ 1Q -1Q P)
(CALL 2Q (E SET) S)
(JRST 0Q TAG4)
TAG5 (HLRZ@ 1Q -1Q P)
(CALL 1Q (E CADR) S)
(CALL 1Q (E ZLOOK) S)
(HRRZ@ 5Q 1Q)
(MOVE 4Q 0Q P)
(HRRM@ 4Q 5Q)
TAG4 (MOVE 1Q 0Q P)
(SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP ZBIND SUBR)
(PUSH P 2Q)
(CALL 1Q (E ZLOOK) S)
(MOVE 2Q 0Q P)
(HRRZ@ 1Q 1Q)
(CALL 2Q (E ZPLACD) S)
(POP P 1Q)
(POPJ P)
NIL
(LAP BOUND FSUBR)
(PUSH P 1Q)
(CALL 1Q (E CADAR) S)
(CALL 1Q (E ZLOOK?) S)
(JUMPE 1Q TAG2)
(MOVEI 1Q (QUOTE T) S)
(JRST 0Q TAG1)
TAG2 (MOVE 1Q (SPECIAL FAIL) S)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP ZCALL SUBR)
(JSP 6Q SPECBIND)
(0Q 0Q (SPECIAL ZSUCCEED?) S)
(PUSH P 1Q)
(PUSH P 2Q)
(CLEARM 5Q (SPECIAL ZRESETV) S)
(CALL 2Q (E ZCALLP) S)
(CAME 1Q (SPECIAL Z*NIL*) S)
(JRST 0Q TAG5)
(MOVE 1Q (SPECIAL FAIL) S)
(JRST 0Q TAG1)
TAG5 (MOVE 1Q (SPECIAL ZVALUE) S)
(CALL 1Q (E CONSP) S)
(JUMPE 1Q TAG6)
(HLRZ@ 5Q (SPECIAL ZVALUE) S)
(CAME 5Q (SPECIAL Z*NIL*) S)
(JRST 0Q TAG6)
(MOVE 1Q 0Q P)
(CALL 1Q (E ZVALV) S)
(CALL 1Q (E ZINSTR) S)
(HRRZ@ 2Q (SPECIAL ZVALUE) S)
(CALL 2Q (E ZCONS) S)
(MOVEM 1Q (SPECIAL ZVALUE) S)
TAG6 (MOVE 5Q (SPECIAL ZTRACEDFNS) S)
(JUMPE 5Q TAG12)
(MOVEI 2Q (QUOTE (PROCS)) S)
(MOVE 1Q -1Q P)
(CALL 2Q (E CONS) S)
(MOVEI 4Q (QUOTE -3Q))
(MOVE 3Q (SPECIAL ZVALUE) S)
(MOVEI 2Q (QUOTE "Leave ") S)
(CALL 4Q (E ZBREAK1) S)
TAG12 (MOVE 1Q (SPECIAL ZVALUE) S)
TAG1 (SUB P (C 2Q 0Q 2Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP ZCALLP SUBR)
(JSP 6Q SPECBIND)
(0Q 1Q (SPECIAL ZNAME) S)
(PUSH P 2Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(MOVEI 2Q (QUOTE PDEF) S)
(CALL 2Q (E GET) S)
(MOVEM 1Q 0Q P)
(JUMPN 1Q TAG5)
(PUSH P (C 0Q 0Q TAG6 0Q))
(PUSH P (SPECIAL ZNAME) S)
(MOVEI D (QUOTE " UNDEFINED PROC") S)
(PUSH P D)
(MOVNI 6Q 2Q)
(JCALL 16Q (E ZERROR) S)
TAG6
TAG5 (MOVE 5Q (SPECIAL ZALIST) S)
(MOVEM 5Q (SPECIAL ZALIST1) S)
(HRRZ@ 1Q 0Q P)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E ZGLOBE) S)
(MOVEM 1Q (SPECIAL ZTEMPV) S)
(JSP 6Q SPECBIND)
(0Q 0Q (SPECIAL ZALIST) S)
(MOVEM 1Q (SPECIAL ZALIST) S)
(HLRZ@ 1Q 0Q P)
(CALL 1Q (E ZINSTP) S)
(PUSH P 1Q)
(MOVE 1Q -2Q P)
(CALL 1Q (E ZVALV) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(CALL 2Q (E ZMATCH) S)
(JUMPN 1Q TAG13)
(MOVE 1Q (SPECIAL Z*NIL*) S)
(MOVEM 1Q (SPECIAL ZVALUE) S)
(JRST 0Q TAG7)
TAG13 (MOVE 5Q (SPECIAL ZTRACEDFNS) S)
(JUMPE 5Q TAG15)
(MOVEI 2Q (QUOTE (PROCS)) S)
(MOVE 1Q (SPECIAL ZNAME) S)
(CALL 2Q (E CONS) S)
(MOVEI 4Q (QUOTE 3Q))
(MOVE 3Q -1Q P)
(MOVEI 2Q (QUOTE "Enter ") S)
(CALL 4Q (E ZBREAK1) S)
TAG15 (MOVE 5Q -1Q P)
(MOVEM 5Q (SPECIAL ZVALD) S)
(HRRZ@ 2Q 0Q P)
(HRRZ@ 2Q 2Q)
(MOVEI 1Q (QUOTE ZPROC) S)
(CALL 2Q (E *APPLY) S)
TAG7 (SUB P (C 2Q 0Q 2Q 0Q))
(PUSHJ P SPECSTR)
(JRST 0Q SPECSTR)
NIL
(LAP ZCALLD SUBR)
(PUSH P 1Q)
(MOVE 1Q (SPECIAL ZDEMON) S)
(JUMPE 1Q TAG2)
(MOVE 1Q 0Q P)
(JUMPE 1Q TAG4)
(MOVEI 2Q (QUOTE VALUE) S)
(MOVEI 1Q (QUOTE ZACCUM) S)
(CALL 2Q (E GET) S)
(MOVE 3Q (SPECIAL ZACCUM) S)
(MOVE 2Q (SPECIAL ZTHRSH) S)
(PUSH P 1Q)
(MOVE 1Q -1Q P)
(PUSH P (SPECIAL ZDEMON) S)
(CALLF@ 3Q 0Q P)
(MOVE 2Q 1Q)
(EXCH 1Q -1Q P)
(CALL 2Q (E ZPLACD) S)
(SUB P (C 2Q 0Q 2Q 0Q))
TAG4
TAG2 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP ZCALLEM SUBR)
(JSP 6Q SPECBIND)
(0Q 0Q (SPECIAL ZSUCCEED?) S)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(CLEARM 5Q (SPECIAL ZRESETV) S)
TAG1 (HRRZ@ 5Q -1Q P)
(MOVEM 5Q -1Q P)
(JUMPN 5Q TAG6)
(MOVE 1Q 0Q P)
(JRST 0Q TAG2)
TAG6 (MOVE 2Q 0Q P)
(HLRZ@ 1Q 5Q)
(CALL 2Q (E ZCALLP) S)
(CAMN 1Q (SPECIAL Z*NIL*) S)
(JRST 0Q TAG1)
(MOVE 5Q (SPECIAL ZTRACEDFNS) S)
(JUMPE 5Q TAG10)
(MOVEI 2Q (QUOTE (PROCS)) S)
(HLRZ@ 1Q -1Q P)
(CALL 2Q (E CONS) S)
(PUSH P 1Q)
(HLRZ@ 5Q (SPECIAL ZVALUE) S)
(CAME 5Q (SPECIAL Z*NIL*) S)
(JRST 0Q TAG12)
(MOVE 3Q -1Q P)
(JRST 0Q TAG11)
TAG12 (MOVE 3Q (SPECIAL ZVALUE) S)
TAG11 (MOVEI 4Q (QUOTE -3Q))
(MOVEI 2Q (QUOTE "Leave ") S)
(POP P 1Q)
(CALL 4Q (E ZBREAK1) S)
TAG10 (MOVE 5Q (SPECIAL ZVALUE) S)
(CAME 5Q (SPECIAL FAIL) S)
(JRST 0Q TAG15)
(MOVE 1Q -2Q P)
(CALL 1Q (E ZRESTORE) S)
(MOVE 1Q (SPECIAL FAIL) S)
(JRST 0Q TAG2)
TAG15 (JRST 0Q TAG1)
TAG2 (SUB P (C 3Q 0Q 3Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP ZCAR SUBR)
(PUSH P 1Q)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG2)
(MOVE 1Q 0Q P)
(JRST 0Q TAG1)
TAG2 (MOVE 2Q (SPECIAL ZHIGH) S)
(HRRZ@ 1Q 0Q P)
(CALL 2Q (E EQUAL) S)
(JUMPE 1Q TAG3)
(HLRZ@ 1Q 0Q P)
(JRST 0Q TAG1)
TAG3 (MOVE 1Q 0Q P)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP ZCONS SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(MOVE 2Q (SPECIAL ZHIGH) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E EQUAL) S)
(JUMPE 1Q TAG2)
(MOVE 1Q -1Q P)
(JRST 0Q TAG1)
TAG2 (MOVE 2Q 0Q P)
(MOVE 1Q -1Q P)
(CALL 2Q (E CONS) S)
TAG1 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP CONTEXT SUBR)
(PUSH P 1Q)
(JUMPN 1Q TAG2)
(MOVEI 5Q (QUOTE INITIAL-CONTEXT) S)
(MOVEM 5Q 0Q P)
TAG2 (MOVE 5Q 0Q P)
(CAMN 5Q (SPECIAL ZINDEX) S)
(JRST 0Q TAG4)
(MOVEI 3Q (QUOTE CONTEXT) S)
(MOVE 2Q (SPECIAL ZNET) S)
(MOVE 1Q (SPECIAL ZINDEX) S)
(CALL 3Q (E PUT) S)
(MOVEI 2Q (QUOTE CONTEXT) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E GET) S)
(EXCH 2Q 1Q)
(JUMPN 2Q TAG5)
(MOVEI 1Q (QUOTE NIL))
(CALL 1Q (E NCONS) S)
(MOVEI 3Q (QUOTE CONTEXT) S)
(MOVE 2Q 1Q)
(MOVE 1Q 0Q P)
(CALL 3Q (E PUT) S)
(MOVE 2Q 1Q)
TAG5 (MOVEI 1Q (QUOTE ZNET) S)
(CALL 2Q (E ZSET) S)
TAG4 (MOVE 5Q (SPECIAL ZINDEX) S)
(CAIE 5Q (QUOTE INITIAL-CONTEXT) S)
(JRST 0Q TAG7)
(MOVEI 1Q (QUOTE NIL))
(JRST 0Q TAG6)
TAG7 (MOVE 1Q 5Q)
TAG6 (POP P 2Q)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE ZINDEX) S)
(CALL 2Q (E ZSET) S)
(POP P 1Q)
(POPJ P)
NIL
(LAP DEDUCE FSUBR)
(CLEARM 5Q (SPECIAL ZRESETV) S)
(PUSH P 1Q)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E ZINSTPD) S)
(PUSH P 1Q)
(HRRZ@ 1Q -1Q P)
(PUSH P (SPECIAL DPROCS) S)
(CALL 1Q (E ZRANGES) S)
(CALL 1Q (E ZRANGER) S)
(MOVE 3Q 1Q)
(POP P 2Q)
(POP P 1Q)
(SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 3Q (E ZDEDUCE) S)
NIL
(LAP ZDEDUCE SUBR)
(JSP 6Q SPECBIND)
(0Q 0Q (SPECIAL ZSUCCEED?) S)
(0Q 0Q (SPECIAL ZSAVED) S)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(MOVEI 5Q (QUOTE T) S)
(MOVEM 5Q (SPECIAL ZSUCCEED?) S)
(MOVE 5Q (SPECIAL ZRESETV) S)
(JUMPN 5Q TAG3)
(MOVE 5Q (SPECIAL ZSAVE) S)
(MOVEM 5Q (SPECIAL ZSAVED) S)
TAG1 (HRRZ@ 5Q -1Q P)
(MOVEM 5Q -1Q P)
(JUMPN 5Q TAG12)
(MOVE 1Q (SPECIAL FAIL) S)
(MOVEM 1Q (SPECIAL ZVALUE) S)
(JRST 0Q TAG4)
TAG12 (MOVE 2Q -2Q P)
(HLRZ@ 1Q 5Q)
(CALL 2Q (E ZCALLP) S)
(CAMN 1Q (SPECIAL Z*NIL*) S)
(JRST 0Q TAG1)
TAG2 (MOVE 1Q (SPECIAL ZVALUE) S)
(CALL 1Q (E CONSP) S)
(JUMPE 1Q TAG14)
(HLRZ@ 5Q (SPECIAL ZVALUE) S)
(CAME 5Q (SPECIAL Z*NIL*) S)
(JRST 0Q TAG16)
(MOVE 1Q -2Q P)
(CALL 1Q (E ZVALV) S)
(CALL 1Q (E ZINSTR) S)
(HRRZ@ 2Q (SPECIAL ZVALUE) S)
(CALL 2Q (E ZCONS) S)
(MOVEM 1Q (SPECIAL ZVALUE) S)
TAG16
TAG14 (MOVE 5Q (SPECIAL ZTRACEDFNS) S)
(JUMPE 5Q TAG20)
(MOVEI 2Q (QUOTE (PROCS)) S)
(HLRZ@ 1Q -1Q P)
(CALL 2Q (E CONS) S)
(MOVEI 4Q (QUOTE -3Q))
(MOVE 3Q (SPECIAL ZVALUE) S)
(MOVEI 2Q (QUOTE "Leave ") S)
(CALL 4Q (E ZBREAK1) S)
TAG20 (MOVE 5Q (SPECIAL ZVALUE) S)
(CAMN 5Q (SPECIAL FAIL) S)
(JRST 0Q TAG22)
(MOVE 1Q 5Q)
(CALL 1Q (E ZVALZ) S)
(MOVE 2Q 0Q P)
(CALL 2Q (E ZRANGEP) S)
(JUMPE 1Q TAG22)
(MOVE 5Q -1Q P)
(MOVEM 5Q (SPECIAL ZDEDUCEV) S)
(MOVE 1Q (SPECIAL ZVALUE) S)
(MOVEM 1Q (SPECIAL ZVALD) S)
(JRST 0Q TAG4)
TAG22 (MOVE 5Q (SPECIAL ZRESETV) S)
(JUMPN 5Q TAG26)
(MOVE 1Q (SPECIAL ZSAVED) S)
(CALL 1Q (E ZRESTORE) S)
(JRST 0Q TAG1)
TAG26
TAG3 (MOVE 5Q (SPECIAL ZTRACEDFNS) S)
(JUMPE 5Q TAG30)
(MOVEI 2Q (QUOTE (PROCS)) S)
(HLRZ@ 1Q -1Q P)
(CALL 2Q (E CONS) S)
(MOVEI 4Q (QUOTE 3Q))
(MOVE 3Q -2Q P)
(MOVEI 2Q (QUOTE "Reenter ") S)
(CALL 4Q (E ZBREAK1) S)
TAG30 (JSP 6Q SPECBIND)
(0Q 0Q (SPECIAL ZALIST) S)
(0Q 0Q (SPECIAL ZNAME) S)
(MOVEI 4Q (QUOTE NIL))
(MOVEI 3Q (QUOTE NIL))
(MOVEI 2Q (QUOTE NIL))
(MOVEI 1Q (QUOTE NIL))
(CALL 4Q (E ZPROC) S)
(PUSHJ P SPECSTR)
(JRST 0Q TAG2)
TAG4 (SUB P (C 3Q 0Q 3Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP DEMON: FSUBR)
(HRRZ@ 4Q 1Q)
(MOVEI 3Q (QUOTE CDDR) S)
(MOVEI 2Q (QUOTE DEMON:) S)
(HLRZ@ 1Q 1Q)
(JCALL 4Q (E ZPROCN) S)
NIL
(LAP DO? FSUBR)
(PUSH P 1Q)
(PUSH P (SPECIAL ZSAVE) S)
(CALL 17Q (E PROGN) S)
(PUSH P 1Q)
(MOVE 1Q -1Q P)
(CALL 1Q (E ZRESTORE) S)
(MOVE 1Q 0Q P)
(SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP DO! FSUBR)
(PUSH P 1Q)
(PUSH P (SPECIAL ZSAVE) S)
(CALL 17Q (E PROGN) S)
(MOVE 5Q 0Q P)
(MOVEM 5Q (SPECIAL ZSAVE) S)
(PUSH P 1Q)
(SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP ZERROR LSUBR)
(JSP 3Q *LCALL)
(PUSH P 1Q)
(MOVEI 2Q (QUOTE NIL))
(MOVEI 1Q (QUOTE NIL))
(CALL 2Q (E OUTC) S)
(PUSH P 1Q)
(CALL 0Q (E TERPRI) S)
(PUSH P (C 0Q 0Q (QUOTE 1Q) 0Q))
TAG1 (MOVE 2Q -2Q P)
(MOVE 1Q 0Q P)
(CALL 2Q (E *GREAT) S)
(JUMPE 1Q TAG6)
(MOVEI 5Q (QUOTE NIL))
(MOVEI 4Q (QUOTE NIL))
(MOVEI 3Q (QUOTE FUZZY) S)
(MOVEI 2Q (QUOTE T) S)
(MOVEI 1Q (QUOTE NIL))
(CALL 5Q (E BREAK1) S)
(MOVEI 2Q (QUOTE NIL))
(PUSH P 1Q)
(MOVE 1Q -2Q P)
(CALL 2Q (E OUTC) S)
(POP P 1Q)
(JRST 0Q TAG2)
TAG6 (MOVE 1Q 0Q P)
(ADD 1Q -4Q P)
(HRRZ 1Q -577777Q 1Q)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG7)
(MOVE 1Q 0Q P)
(ADD 1Q -4Q P)
(HRRZ 1Q -577777Q 1Q)
(CALL 1Q (E PRINC) S)
(JRST 0Q TAG5)
TAG7 (MOVE 1Q 0Q P)
(ADD 1Q -4Q P)
(HRRZ 1Q -577777Q 1Q)
(PUSH P 1Q)
(CALL 0Q (E CHRPOS) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(CALL 2Q (E SPRINT) S)
TAG5 (MOVE 1Q 0Q P)
(CALL 1Q (E ADD1) S)
(MOVEM 1Q 0Q P)
(JRST 0Q TAG1)
TAG2 (SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP ERASE FSUBR)
(PUSH P 1Q)
(PUSH P (SPECIAL ZSAVE) S)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E ZINST) S)
(CALL 1Q (E ZREMOVE) S)
(MOVEM 1Q -1Q P)
(CAME 1Q (SPECIAL FAIL) S)
(JRST 0Q TAG5)
(MOVE 1Q (SPECIAL FAIL) S)
(JRST 0Q TAG1)
TAG5 (MOVE 3Q -1Q P)
(MOVE 2Q (SPECIAL EPROCS) S)
(MOVE 1Q 0Q P)
(CALL 3Q (E ZCALLEM) S)
TAG1 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(DEFP *EXIT EXIT SUBR)
(LAP EXIT FSUBR)
(CALL 1Q (E ZSETV) S)
(CLEARM 5Q (SPECIAL THROW) S)
(MOVEI 5Q (QUOTE EXIT) S)
(MOVEM 5Q (SPECIAL CATCH) S)
(MOVEI 1Q (QUOTE THROW) S)
(JCALL 1Q (E ERR) S)
NIL
(LAP FAIL LSUBR)
(JSP 3Q *LCALL)
(PUSH P 1Q)
(CALL 1Q (E ZEROP) S)
(JUMPE 1Q TAG2)
(PUSH P (C 0Q 0Q TAG3 0Q))
(MOVNI 6Q 0Q)
(JCALL 16Q (E RESTORE) S)
TAG3 (JRST 0Q TAG1)
TAG2 (PUSH P (C 0Q 0Q TAG5 0Q))
(MOVE 5Q -3Q P)
(HRRZ 5Q 1Q 5Q)
(PUSH P 5Q)
(MOVNI 6Q 1Q)
(JCALL 16Q (E RESTORE) S)
TAG5
TAG1 (MOVE 5Q (SPECIAL FAIL) S)
(MOVEM 5Q (SPECIAL ZVALUE) S)
(CLEARM 5Q (SPECIAL THROW) S)
(MOVEI 5Q (QUOTE SUCCEED) S)
(MOVEM 5Q (SPECIAL CATCH) S)
(MOVEI 1Q (QUOTE THROW) S)
(SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 1Q (E ERR) S)
NIL
(DEFV FAIL FAIL)
(LAP FAILP SUBR)
(CAIE 1Q (QUOTE FAIL) S)
(TDZA 1Q 1Q)
(MOVEI 1Q (QUOTE T) S)
(POPJ P)
NIL
(LAP FETCH FSUBR)
(PUSH P 1Q)
(HRRZ@ 1Q 1Q)
(CALL 1Q (E ZRANGES) S)
(PUSH P 1Q)
(HLRZ@ 1Q -1Q P)
(CALL 1Q (E ZINSTP) S)
(MOVE 2Q 0Q P)
(MOVEM 1Q -1Q P)
(PUSH P (SPECIAL ZINSTPF) S)
(CALL 2Q (E ZGETAS) S)
(PUSH P 1Q)
(MOVE 1Q -2Q P)
(CALL 1Q (E ZRANGER) S)
(MOVE 4Q 1Q)
(POP P 3Q)
(MOVE 2Q 0Q P)
(MOVE 1Q -2Q P)
(SUB P (C 3Q 0Q 3Q 0Q))
(JCALL 4Q (E ZFETCH) S)
NIL
(LAP ZFETCH SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(PUSH P 4Q)
(JUMPN 3Q TAG6)
(MOVE 1Q (SPECIAL FAIL) S)
(JRST 0Q TAG2)
TAG6 (JUMPN 2Q TAG1)
(MOVE 2Q 3Q)
(CALL 2Q (E ASSOC#) S)
(MOVEM 1Q -3Q P)
(JUMPE 1Q TAG7)
(MOVE 2Q 0Q P)
(HRRZ@ 1Q 1Q)
(CALL 2Q (E ZRANGEP) S)
(JUMPE 1Q TAG7)
(MOVE 5Q (SPECIAL ZTRACEDFNS) S)
(JUMPE 5Q TAG13)
(MOVEI 4Q (QUOTE 0Q))
(MOVE 3Q -3Q P)
(MOVEI 2Q (QUOTE NIL))
(MOVEI 1Q (QUOTE (FETCH NET)) S)
(CALL 4Q (E ZBREAK1) S)
TAG13 (CLEARM 5Q (SPECIAL ZFETCHV) S)
(MOVE 1Q -3Q P)
(CALL 1Q (E ZCAR) S)
(MOVEM 1Q (SPECIAL ZVALD) S)
(JRST 0Q TAG2)
TAG7 (MOVE 1Q (SPECIAL FAIL) S)
(JRST 0Q TAG2)
TAG1 (MOVE 2Q 0Q P)
(HLRZ@ 1Q -1Q P)
(HRRZ@ 1Q 1Q)
(CALL 2Q (E ZRANGEP) S)
(JUMPN 1Q TAG16)
(MOVE 1Q (SPECIAL FAIL) S)
(JRST 0Q TAG2)
TAG16 (HLRZ@ 2Q -1Q P)
(HLRZ@ 2Q 2Q)
(MOVE 1Q -3Q P)
(CALL 2Q (E ZMATCH) S)
(JUMPE 1Q TAG17)
(MOVE 5Q (SPECIAL ZTRACEDFNS) S)
(JUMPE 5Q TAG21)
(MOVEI 4Q (QUOTE 0Q))
(HLRZ@ 3Q -1Q P)
(MOVEI 2Q (QUOTE NIL))
(MOVEI 1Q (QUOTE (FETCH NET)) S)
(CALL 4Q (E ZBREAK1) S)
TAG21 (HRRZ@ 5Q -1Q P)
(MOVEM 5Q (SPECIAL ZFETCHV) S)
(HLRZ@ 1Q -1Q P)
(CALL 1Q (E ZCAR) S)
(MOVEM 1Q (SPECIAL ZVALD) S)
(JRST 0Q TAG2)
TAG17 (HRRZ@ 5Q -1Q P)
(MOVEM 5Q -1Q P)
(JUMPN 5Q TAG1)
(MOVE 1Q (SPECIAL FAIL) S)
(JRST 0Q TAG2)
TAG2 (SUB P (C 4Q 0Q 4Q 0Q))
(POPJ P)
NIL
(LAP FINALIZE LSUBR)
(JSP 3Q *LCALL)
(PUSH P 1Q)
(CALL 1Q (E ZEROP) S)
(JUMPE 1Q TAG2)
(MOVE 5Q (SPECIAL ZSAVEP) S)
(JRST 0Q TAG1)
TAG2 (MOVE 5Q -2Q P)
(HRRZ 5Q 1Q 5Q)
TAG1 (MOVEM 5Q 0Q P)
(MOVE 2Q (SPECIAL ZSAVE) S)
(MOVE 1Q 5Q)
(CALL 2Q (E TAILP) S)
(JUMPN 1Q TAG5)
(PUSH P (C 0Q 0Q TAG6 0Q))
(MOVEI D (QUOTE "BACKTRACK ERROR - FINALIZE") S)
(PUSH P D)
(MOVNI 6Q 1Q)
(JCALL 16Q (E ZERROR) S)
TAG6 (JRST 0Q TAG4)
TAG5 (MOVE 5Q 0Q P)
(MOVEM 5Q (SPECIAL ZSAVE) S)
TAG4 (MOVEI 1Q (QUOTE T) S)
(SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP FLUSH FSUBR)
(PUSH P 1Q)
(JUMPE 1Q TAG5)
(HLRZ@ 5Q 1Q)
(CAIE 5Q (QUOTE NET) S)
(JRST 0Q TAG4)
TAG5 (HLLZS@ 0Q (SPECIAL ZNET) S)
(PUSH P (SPECIAL OBLIST) S)
TAG1 (MOVE 5Q 0Q P)
(JUMPE 5Q TAG12)
(HLRZ@ 1Q 5Q)
(HRRZ@ 5Q 5Q)
(MOVEM 1Q 0Q P)
(PUSH P 5Q)
TAG2 (MOVE 5Q -1Q P)
(JUMPE 5Q TAG17)
(HLRZ@ 1Q 5Q)
(HRRZ@ 5Q 5Q)
(MOVE 2Q (SPECIAL ZINDEX) S)
(CALL 2Q (E REMPROP) S)
(MOVEM 5Q -1Q P)
(JRST 0Q TAG2)
TAG17 (POP P -1Q P)
(JRST 0Q TAG1)
TAG12 (SUB P (C 1Q 0Q 1Q 0Q))
TAG4 (MOVE 5Q 0Q P)
(JUMPE 5Q TAG22)
(HLRZ@ 5Q 5Q)
(CAIE 5Q (QUOTE PROCS) S)
(JRST 0Q TAG21)
TAG22 (HLLZS@ 0Q (SPECIAL DPROCS) S)
(HLLZS@ 0Q (SPECIAL EPROCS) S)
(HLLZS@ 0Q (SPECIAL APROCS) S)
TAG21 (MOVE 5Q (SPECIAL ZSAVEP) S)
(MOVEM 5Q (SPECIAL ZSAVE) S)
(MOVEI 1Q (QUOTE T) S)
(SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP FOR FSUBR)
(CLEARM 5Q (SPECIAL ZRESETV) S)
(PUSH P 1Q)
(HLRZ@ 5Q 1Q)
(HRRZ@ 4Q 1Q)
(HLRZ@ 4Q 4Q)
(HRRZ@ 3Q 1Q)
(HRRZ@ 3Q 3Q)
(MOVEM 3Q 0Q P)
(PUSH P 4Q)
(PUSH P 5Q)
(CAIN 5Q (QUOTE FETCH:) S)
(JRST 0Q TAG6)
(CAIE 5Q (QUOTE F:) S)
(JRST 0Q TAG5)
TAG6 (CLEARM 5Q 0Q P)
(JRST 0Q TAG4)
TAG5 (MOVE 5Q 0Q P)
(CAIN 5Q (QUOTE DEDUCE:) S)
(JRST 0Q TAG10)
(CAIE 5Q (QUOTE D:) S)
(JRST 0Q TAG7)
TAG10 (MOVEI 5Q (QUOTE D) S)
(MOVEM 5Q 0Q P)
(JRST 0Q TAG4)
TAG7 (MOVE 5Q 0Q P)
(CAIN 5Q (QUOTE GOAL:) S)
(JRST 0Q TAG12)
(CAIE 5Q (QUOTE G:) S)
(JRST 0Q TAG11)
TAG12 (MOVEI 5Q (QUOTE T) S)
(MOVEM 5Q 0Q P)
(JRST 0Q TAG4)
TAG11 (MOVE 5Q 0Q P)
(CAIN 5Q (QUOTE TRY:) S)
(JRST 0Q TAG14)
(CAIE 5Q (QUOTE T:) S)
(JRST 0Q TAG13)
TAG14 (MOVE 1Q -1Q P)
(PUSH P (SPECIAL Z*NIL*) S)
(CALL 1Q (E ZINST) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(HLRZ@ 5Q -2Q P)
(HRRZ@ 4Q -2Q P)
(MOVEM 1Q 0Q P)
(MOVEM 4Q -2Q P)
(MOVEM 5Q -1Q P)
(JRST 0Q TAG4)
TAG13 (MOVE 1Q 0Q P)
(CALL 1Q (E ZINSTP) S)
(PUSH P 1Q)
(MOVE 1Q -2Q P)
(CALL 1Q (E ZINST) S)
(MOVE 3Q -3Q P)
(MOVE 2Q 1Q)
(POP P 1Q)
(CALL 3Q (E ZFOR) S)
(JRST 0Q TAG1)
TAG4 (MOVE 1Q -1Q P)
(CALL 1Q (E ZINSTP) S)
(MOVE 3Q 0Q P)
(MOVE 2Q -2Q P)
(CALL 3Q (E ZFORFD) S)
TAG1 (SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP ZFOR SUBR)
(JSP 6Q SPECBIND)
(0Q 1Q (SPECIAL ZPAT) S)
(0Q 2Q (SPECIAL ZDATS) S)
(0Q 3Q (SPECIAL ZLIST) S)
(0Q 0Q (SPECIAL ZLIST1) S)
(0Q 0Q (SPECIAL ZSAVEF) S)
(MOVE 5Q (SPECIAL ZRESETV) S)
(JUMPE 5Q TAG16)
(MOVEI 1Q (QUOTE (ZPAT ZDATS ZLIST ZLIST1 ZSAVEF)) S)
(CALL 1Q (E ZRESET) S)
(CAMN 1Q (SPECIAL Z*NIL*) S)
(JRST 0Q TAG4)
(JRST 0Q TAG3)
TAG16 (MOVE 5Q (SPECIAL ZDATS) S)
(JUMPN 5Q TAG21)
(MOVE 1Q (SPECIAL FAIL) S)
(JRST 0Q TAG12)
TAG21 (MOVE 5Q (SPECIAL ZSAVE) S)
(MOVEM 5Q (SPECIAL ZSAVEF) S)
(MOVE 5Q (SPECIAL ZLIST) S)
(MOVEM 5Q (SPECIAL ZLIST1) S)
(MOVE 5Q (SPECIAL FAIL) S)
(MOVEM 5Q (SPECIAL ZVALUE) S)
TAG1 (HLRZ@ 1Q (SPECIAL ZDATS) S)
(MOVEM 1Q (SPECIAL ZVALD) S)
(PUSH P (SPECIAL ZPAT) S)
(CALL 1Q (E ZVALV) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(CALL 2Q (E ZMATCH) S)
(JUMPE 1Q TAG11)
TAG2 (HLRZ@ 5Q (SPECIAL ZLIST) S)
(MOVEM 5Q (SPECIAL ZVALUE) S)
TAG3 (PUSH P (C 0Q 0Q TAG25 0Q))
(MOVEI 1Q (QUOTE T) S)
(JSP 13Q *ERRSET1)
(MOVE 1Q (SPECIAL ZVALUE) S)
(CALL 1Q (E *EVAL) S)
(MOVEM 1Q (SPECIAL ZVALUE) S)
(JRST 0Q *ERRSET2)
TAG25 (CALL 1Q (E %CATCH) S)
(JUMPE 1Q TAG24)
(JRST 0Q TAG23)
TAG24 (MOVE 5Q (SPECIAL CATCH) S)
(CAIN 5Q (QUOTE SUCCEED?) S)
(JRST 0Q TAG5)
(CAIN 5Q (QUOTE EXIT) S)
(JRST 0Q TAG6)
(CAIN 5Q (QUOTE NEXT) S)
(JRST 0Q TAG7)
(CAIN 5Q (QUOTE BACK) S)
(JRST 0Q TAG10)
(MOVEI 1Q (QUOTE THROW) S)
(CALL 1Q (E ERR) S)
TAG23 (MOVE 5Q (SPECIAL ZVALUE) S)
(CAMN 5Q (SPECIAL FAIL) S)
(JRST 0Q TAG10)
(MOVE 1Q 5Q)
(CALL 1Q (E ZCALLD) S)
TAG4 (HRRZ@ 5Q (SPECIAL ZLIST) S)
(MOVEM 5Q (SPECIAL ZLIST) S)
(JUMPN 5Q TAG2)
(MOVE 5Q (SPECIAL FAIL) S)
(MOVEM 5Q (SPECIAL ZVALUE) S)
(JRST 0Q TAG10)
TAG5 (MOVE 1Q (SPECIAL ZSAVEF) S)
(CALL 1Q (E NCONS) S)
(MOVE 2Q (SPECIAL ZLIST1) S)
(CALL 2Q (E XCONS) S)
(MOVE 2Q (SPECIAL ZLIST) S)
(CALL 2Q (E XCONS) S)
(MOVE 2Q (SPECIAL ZDATS) S)
(CALL 2Q (E XCONS) S)
(MOVE 2Q (SPECIAL ZPAT) S)
(CALL 2Q (E XCONS) S)
(MOVE 2Q (SPECIAL ZRESETV) S)
(CALL 2Q (E CONS) S)
(MOVEI 2Q (QUOTE ZFOR) S)
(CALL 2Q (E XCONS) S)
(MOVEM 1Q (SPECIAL ZRESETV) S)
(CLEARM 5Q (SPECIAL THROW) S)
(MOVEI 5Q (QUOTE SUCCEED?) S)
(MOVEM 5Q (SPECIAL CATCH) S)
(MOVEI 1Q (QUOTE THROW) S)
(CALL 1Q (E ERR) S)
TAG6 (MOVE 5Q (SPECIAL ZVALUE) S)
(CAME 5Q (SPECIAL Z*NIL*) S)
(JRST 0Q TAG36)
(HLRZ@ 5Q (SPECIAL ZDATS) S)
(MOVEM 5Q (SPECIAL ZVALUE) S)
TAG36 (MOVE 1Q (SPECIAL ZVALUE) S)
(CALL 1Q (E ZCAR) S)
(JRST 0Q TAG12)
TAG7 (MOVE 5Q (SPECIAL ZVALUE) S)
(CAME 5Q (SPECIAL Z*NIL*) S)
(JRST 0Q TAG40)
(HLRZ@ 5Q (SPECIAL ZDATS) S)
(MOVEM 5Q (SPECIAL ZVALUE) S)
TAG40 (JRST 0Q TAG11)
TAG10 (MOVE 1Q (SPECIAL ZSAVEF) S)
(CALL 1Q (E ZRESTORE) S)
TAG11 (HRRZ@ 5Q (SPECIAL ZDATS) S)
(MOVEM 5Q (SPECIAL ZDATS) S)
(JUMPE 5Q TAG42)
(MOVE 5Q (SPECIAL ZLIST1) S)
(MOVEM 5Q (SPECIAL ZLIST) S)
(JRST 0Q TAG1)
TAG42 (MOVE 1Q (SPECIAL ZVALUE) S)
(CALL 1Q (E ZCAR) S)
(JRST 0Q TAG12)
TAG12 (JRST 0Q SPECSTR)
NIL
(LAP ZFORFD SUBR)
(JSP 6Q SPECBIND)
(0Q 1Q (SPECIAL ZPAT) S)
(0Q 2Q (SPECIAL ZLIST) S)
(0Q 3Q (SPECIAL ZPROCS) S)
(0Q 0Q (SPECIAL ZDATS) S)
(0Q 0Q (SPECIAL ZLIST1) S)
(0Q 0Q (SPECIAL ZRNG) S)
(0Q 0Q (SPECIAL ZRSETV) S)
(0Q 0Q (SPECIAL ZVLD) S)
(0Q 0Q (SPECIAL ZSAVEF) S)
(0Q 0Q (SPECIAL ZSAVF1) S)
(MOVEI D (QUOTE T) S)
(PUSH P D)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(MOVE 5Q (SPECIAL ZRESETV) S)
(JUMPE 5Q TAG17)
(MOVEI 1Q (QUOTE (ZPAT ZLIST ZPROCS ZDATS ZLIST1 ZRNG ZRSETV ZVLD ZSAVEF ZSAVF1)) S)
(CALL 1Q (E ZRESET) S)
(CAMN 1Q (SPECIAL Z*NIL*) S)
(JRST 0Q TAG5)
(JRST 0Q TAG4)
(JRST 0Q TAG16)
TAG17 (HLRZ@ 5Q 2Q)
(CAIE 5Q (QUOTE ZVAL:) S)
(JRST 0Q TAG21)
(HRRZ@ 1Q 2Q)
(CALL 1Q (E ZRANGES) S)
(MOVEM 1Q (SPECIAL ZRNG) S)
(HRRZ@ 5Q (SPECIAL ZLIST) S)
(HRRZ@ 5Q 5Q)
(MOVEM 5Q (SPECIAL ZLIST) S)
(JRST 0Q TAG16)
TAG21 (MOVE 5Q (SPECIAL ZRANGE) S)
(MOVEM 5Q (SPECIAL ZRNG) S)
TAG16 (MOVE 5Q (SPECIAL ZSAVE) S)
(MOVEM 5Q (SPECIAL ZSAVEF) S)
(MOVE 5Q (SPECIAL ZPROCS) S)
(CAIE 5Q (QUOTE D) S)
(JRST 0Q TAG24)
(MOVE 5Q (SPECIAL DPROCS) S)
(MOVEM 5Q (SPECIAL ZPROCS) S)
(MOVE 1Q (SPECIAL ZPAT) S)
(CALL 1Q (E ZINSTD) S)
(MOVEM 1Q (SPECIAL ZPAT) S)
(JRST 0Q TAG23)
TAG24 (HLRZ@ 5Q 5Q)
(CAME 5Q (SPECIAL Z*NIL*) S)
(JRST 0Q TAG25)
(MOVE 1Q (SPECIAL ZPAT) S)
(CALL 1Q (E ZINSTD) S)
(MOVEM 1Q (SPECIAL ZPAT) S)
(JRST 0Q TAG23)
TAG25 (MOVE 5Q (SPECIAL ZINSTPF) S)
(MOVE 2Q (SPECIAL ZRNG) S)
(MOVE 1Q (SPECIAL ZPAT) S)
(MOVEM 5Q -2Q P)
(CALL 2Q (E ZGETAS) S)
(MOVEM 1Q (SPECIAL ZDATS) S)
TAG23 (MOVE 1Q (SPECIAL ZRNG) S)
(CALL 1Q (E ZRANGER) S)
(MOVEM 1Q (SPECIAL ZRNG) S)
(MOVE 5Q (SPECIAL ZLIST) S)
(MOVEM 5Q (SPECIAL ZLIST1) S)
(MOVE 5Q (SPECIAL FAIL) S)
(MOVEM 5Q -1Q P)
TAG1 (MOVE 5Q (SPECIAL ZDATS) S)
(JUMPE 5Q TAG30)
(MOVE 4Q (SPECIAL ZRNG) S)
(MOVE 3Q 5Q)
(MOVE 2Q -2Q P)
(MOVE 1Q (SPECIAL ZPAT) S)
(CALL 4Q (E ZFETCH) S)
(CAME 1Q (SPECIAL FAIL) S)
(JRST 0Q TAG32)
(CLEARM 5Q (SPECIAL ZDATS) S)
(JRST 0Q TAG31)
TAG32 (MOVE 5Q (SPECIAL ZFETCHV) S)
(MOVEM 5Q (SPECIAL ZDATS) S)
(JRST 0Q TAG2)
TAG31
TAG30 (MOVE 5Q (SPECIAL ZPROCS) S)
(CAIE 5Q (QUOTE T) S)
(JRST 0Q TAG35)
(MOVE 5Q (SPECIAL DPROCS) S)
(MOVEM 5Q (SPECIAL ZPROCS) S)
(MOVE 1Q (SPECIAL ZPAT) S)
(CALL 1Q (E ZINSTD) S)
(MOVEM 1Q (SPECIAL ZPAT) S)
TAG35 (MOVE 5Q (SPECIAL ZRSETV) S)
(MOVEM 5Q (SPECIAL ZRESETV) S)
(MOVE 5Q (SPECIAL ZPROCS) S)
(JUMPE 5Q TAG40)
(MOVE 3Q (SPECIAL ZRNG) S)
(MOVE 2Q 5Q)
(MOVE 1Q (SPECIAL ZPAT) S)
(CALL 3Q (E ZDEDUCE) S)
(CAME 1Q (SPECIAL FAIL) S)
(JRST 0Q TAG37)
TAG40 (MOVE 5Q 0Q P)
(JUMPE 5Q TAG42)
(MOVE 1Q (SPECIAL ZSAVEF) S)
(CALL 1Q (E ZRESTORE) S)
TAG42 (MOVE 1Q -1Q P)
(CALL 1Q (E ZCAR) S)
(JRST 0Q TAG13)
TAG37 (MOVE 5Q (SPECIAL ZDEDUCEV) S)
(MOVEM 5Q (SPECIAL ZPROCS) S)
(MOVE 5Q (SPECIAL ZRESETV) S)
(MOVEM 5Q (SPECIAL ZRSETV) S)
(MOVE 5Q (SPECIAL ZSAVE) S)
(MOVEM 5Q (SPECIAL ZSAVF1) S)
TAG2 (MOVE 1Q (SPECIAL ZVALD) S)
(MOVEM 1Q (SPECIAL ZVLD) S)
(CALL 1Q (E ZCALLD) S)
(CLEARM 5Q 0Q P)
TAG3 (HLRZ@ 5Q (SPECIAL ZLIST) S)
(MOVEM 5Q (SPECIAL ZVALUE) S)
TAG4 (PUSH P (C 0Q 0Q TAG46 0Q))
(MOVEI 1Q (QUOTE T) S)
(JSP 13Q *ERRSET1)
(MOVE 1Q (SPECIAL ZVALUE) S)
(CALL 1Q (E *EVAL) S)
(MOVEM 1Q (SPECIAL ZVALUE) S)
(JRST 0Q *ERRSET2)
TAG46 (CALL 1Q (E %CATCH) S)
(JUMPE 1Q TAG45)
(JRST 0Q TAG44)
TAG45 (MOVE 5Q (SPECIAL CATCH) S)
(CAIN 5Q (QUOTE SUCCEED?) S)
(JRST 0Q TAG6)
(CAIN 5Q (QUOTE EXIT) S)
(JRST 0Q TAG7)
(CAIN 5Q (QUOTE NEXT) S)
(JRST 0Q TAG10)
(CAIN 5Q (QUOTE BACK) S)
(JRST 0Q TAG11)
(MOVEI 1Q (QUOTE THROW) S)
(CALL 1Q (E ERR) S)
TAG44 (MOVE 5Q (SPECIAL ZVALUE) S)
(CAMN 5Q (SPECIAL FAIL) S)
(JRST 0Q TAG11)
(MOVE 1Q 5Q)
(CALL 1Q (E ZCALLD) S)
TAG5 (HRRZ@ 5Q (SPECIAL ZLIST) S)
(MOVEM 5Q (SPECIAL ZLIST) S)
(JUMPN 5Q TAG3)
(MOVE 5Q (SPECIAL FAIL) S)
(MOVEM 5Q (SPECIAL ZVALUE) S)
(JRST 0Q TAG11)
TAG6 (MOVE 1Q (SPECIAL ZSAVF1) S)
(CALL 1Q (E NCONS) S)
(MOVE 2Q (SPECIAL ZSAVEF) S)
(CALL 2Q (E XCONS) S)
(MOVE 2Q (SPECIAL ZVLD) S)
(CALL 2Q (E XCONS) S)
(MOVE 2Q (SPECIAL ZRSETV) S)
(CALL 2Q (E XCONS) S)
(MOVE 2Q (SPECIAL ZRNG) S)
(CALL 2Q (E XCONS) S)
(MOVE 2Q (SPECIAL ZLIST1) S)
(CALL 2Q (E XCONS) S)
(MOVE 2Q (SPECIAL ZDATS) S)
(CALL 2Q (E XCONS) S)
(MOVE 2Q (SPECIAL ZPROCS) S)
(CALL 2Q (E XCONS) S)
(MOVE 2Q (SPECIAL ZLIST) S)
(CALL 2Q (E XCONS) S)
(MOVE 2Q (SPECIAL ZPAT) S)
(CALL 2Q (E XCONS) S)
(MOVE 2Q (SPECIAL ZRESETV) S)
(CALL 2Q (E CONS) S)
(MOVEI 2Q (QUOTE ZFORFD) S)
(CALL 2Q (E XCONS) S)
(MOVEM 1Q (SPECIAL ZRESETV) S)
(CLEARM 5Q (SPECIAL THROW) S)
(MOVEI 5Q (QUOTE SUCCEED?) S)
(MOVEM 5Q (SPECIAL CATCH) S)
(MOVEI 1Q (QUOTE THROW) S)
(CALL 1Q (E ERR) S)
TAG7 (MOVE 5Q (SPECIAL ZVALUE) S)
(CAME 5Q (SPECIAL Z*NIL*) S)
(JRST 0Q TAG57)
(MOVE 5Q (SPECIAL ZVLD) S)
(MOVEM 5Q (SPECIAL ZVALUE) S)
TAG57 (MOVE 1Q (SPECIAL ZVALUE) S)
(CALL 1Q (E ZCAR) S)
(JRST 0Q TAG13)
TAG10 (MOVE 5Q (SPECIAL ZVALUE) S)
(CAME 5Q (SPECIAL Z*NIL*) S)
(JRST 0Q TAG61)
(MOVE 5Q (SPECIAL ZVLD) S)
(MOVEM 5Q (SPECIAL ZVALUE) S)
TAG61 (JRST 0Q TAG12)
TAG11 (MOVE 5Q (SPECIAL ZRSETV) S)
(JUMPE 5Q TAG63)
(MOVE 1Q (SPECIAL ZSAVF1) S)
(CALL 1Q (E ZRESTORE) S)
(MOVEI 5Q (QUOTE T) S)
(MOVEM 5Q 0Q P)
(JRST 0Q TAG62)
TAG63 (MOVE 1Q (SPECIAL ZSAVEF) S)
(CALL 1Q (E ZRESTORE) S)
TAG62
TAG12 (MOVE 5Q (SPECIAL ZLIST1) S)
(MOVEM 5Q (SPECIAL ZLIST) S)
(MOVE 5Q (SPECIAL ZVALUE) S)
(MOVEM 5Q -1Q P)
(JRST 0Q TAG1)
TAG13 (SUB P (C 3Q 0Q 3Q 0Q))
(JRST 0Q SPECSTR)
NIL
(LAP ZGENPROC SUBR)
(JSP 6Q SPECBIND)
(0Q 0Q (SPECIAL BASE) S)
(0Q 0Q (SPECIAL *NOPOINT) S)
(MOVEI 5Q (QUOTE 12Q))
(MOVEM 5Q (SPECIAL BASE) S)
(MOVEI 5Q (QUOTE T) S)
(MOVEM 5Q (SPECIAL *NOPOINT) S)
(MOVE 1Q (SPECIAL ZGENPROCN) S)
(CALL 1Q (E ADD1) S)
(MOVEM 1Q (SPECIAL ZGENPROCN) S)
(CALL 1Q (E EXPLODE) S)
(MOVE 2Q 1Q)
(MOVEI 1Q (QUOTE ($ P R O C)) S)
(CALL 2Q (E *APPEND) S)
(CALL 1Q (E READLIST) S)
(MOVE 2Q (SPECIAL ZGENPROCS) S)
(CALL 2Q (E CONS) S)
(MOVEM 1Q (SPECIAL ZGENPROCS) S)
(HLRZ@ 1Q 1Q)
(JRST 0Q SPECSTR)
NIL
(LAP ZGET SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(CALL 2Q (E GET) S)
(MOVEM 1Q -1Q P)
(JUMPE 1Q TAG2)
(HRRZ@ 1Q 1Q)
TAG2 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP ZGETAS SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(CALL 1Q (E ZATOMS) S)
(HRRZ@ 5Q (SPECIAL ZNET) S)
(PUSH P (C 0Q 0Q (QUOTE 10000Q) 0Q))
(PUSH P 5Q)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (MOVE 5Q -1Q P)
(JUMPE 5Q TAG2)
(MOVE 2Q (SPECIAL ZINDEX) S)
(HLRZ@ 1Q 5Q)
(CALL 2Q (E GET) S)
(MOVEM 1Q -5Q P)
(JUMPE 1Q TAG6)
(CALL 1Q (E CDAR) S)
(MOVEM 1Q 0Q P)
(CALL 1Q (E ZEROP) S)
(JUMPN 1Q TAG6)
(MOVE 2Q -3Q P)
(MOVE 1Q 0Q P)
(CALL 2Q (E *LESS) S)
(JUMPE 1Q TAG12)
(MOVE 5Q 0Q P)
(HRRZ@ 4Q -5Q P)
(MOVEM 4Q -2Q P)
(MOVEM 5Q -3Q P)
TAG12 (HRRZ@ 5Q -1Q P)
(MOVEM 5Q -1Q P)
(JRST 0Q TAG1)
TAG2 (HLRZ@ 1Q -4Q P)
(HRRZ@ 2Q -4Q P)
(HLRZ@ 2Q 2Q)
(MOVEM 1Q -3Q P)
(CALL 2Q (E *LESS) S)
(JUMPE 1Q TAG14)
(MOVEI 5Q (QUOTE T) S)
(MOVE 1Q -2Q P)
(CALL 1Q (E REVERSE) S)
(MOVEM 1Q -2Q P)
(MOVEM 5Q -1Q P)
TAG14 (MOVE 5Q -2Q P)
(JUMPE 5Q TAG6)
TAG3 (MOVE 5Q -1Q P)
(JUMPE 5Q TAG17)
(MOVE 2Q -3Q P)
(HLRZ@ 1Q -2Q P)
(HRRZ@ 1Q 1Q)
(CALL 2Q (E *LESS) S)
(JUMPN 1Q TAG4)
(JRST 0Q TAG16)
TAG17 (MOVE 2Q -3Q P)
(HLRZ@ 1Q -2Q P)
(HRRZ@ 1Q 1Q)
(CALL 2Q (E *GREAT) S)
(JUMPN 1Q TAG4)
TAG16 (MOVE 1Q -2Q P)
(JRST 0Q TAG5)
TAG4 (HRRZ@ 5Q -2Q P)
(MOVEM 5Q -2Q P)
(JUMPN 5Q TAG3)
(JRST 0Q TAG6)
TAG6 (MOVEI 1Q (QUOTE NIL))
TAG5 (SUB P (C 6Q 0Q 6Q 0Q))
(POPJ P)
NIL
(LAP GLOBAL FSUBR)
(MOVEM 1Q (SPECIAL ZGLOBEV) S)
(MOVEI 1Q (QUOTE T) S)
(POPJ P)
NIL
(LAP ZGLOBE SUBR)
(MOVE 2Q (SPECIAL ZGLOBEV) S)
(CALL 2Q (E *APPEND) S)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE NIL))
(CALL 1Q (E NCONS) S)
(PUSH P 1Q)
TAG1 (MOVE 5Q -1Q P)
(JUMPE 5Q TAG6)
(HLRZ@ 1Q 5Q)
(HRRZ@ 5Q 5Q)
(CALL 1Q (E CADR) S)
(MOVEM 5Q -1Q P)
(CALL 1Q (E ZLOOK) S)
(MOVE 2Q 1Q)
(MOVE 1Q 0Q P)
(CALL 2Q (E TCONC) S)
(JRST 0Q TAG1)
TAG6 (HLRZ@ 1Q 0Q P)
(SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP GOAL FSUBR)
(PUSH P 1Q)
(HRRZ@ 1Q 1Q)
(CALL 1Q (E ZRANGES) S)
(PUSH P 1Q)
(HLRZ@ 1Q -1Q P)
(CALL 1Q (E ZINSTP) S)
(MOVEM 1Q -1Q P)
(MOVE 2Q 0Q P)
(PUSH P (SPECIAL ZINSTPF) S)
(CALL 2Q (E ZGETAS) S)
(PUSH P 1Q)
(MOVE 1Q -2Q P)
(CALL 1Q (E ZRANGER) S)
(MOVE 4Q 1Q)
(POP P 3Q)
(POP P 2Q)
(MOVEM 1Q 0Q P)
(MOVE 1Q -1Q P)
(CALL 4Q (E ZFETCH) S)
(CAMN 1Q (SPECIAL FAIL) S)
(JRST 0Q TAG5)
(MOVE 1Q (SPECIAL ZVALD) S)
(JRST 0Q TAG4)
TAG5 (CLEARM 5Q (SPECIAL ZRESETV) S)
(MOVE 1Q -1Q P)
(CALL 1Q (E ZINSTD) S)
(MOVE 3Q 0Q P)
(MOVE 2Q (SPECIAL DPROCS) S)
(CALL 3Q (E ZDEDUCE) S)
TAG4 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP GOTO FSUBR)
(HLRZ@ 5Q 1Q)
(PUSH P 5Q)
TAG1 (MOVE 1Q 0Q P)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG6)
(MOVE 5Q 0Q P)
(MOVEM 5Q (SPECIAL THROW) S)
(MOVEI 5Q (QUOTE GOTO) S)
(MOVEM 5Q (SPECIAL CATCH) S)
(MOVEI 1Q (QUOTE THROW) S)
(CALL 1Q (E ERR) S)
(JRST 0Q TAG5)
TAG6 (MOVE 1Q 0Q P)
(CALL 1Q (E *EVAL) S)
(MOVEM 1Q 0Q P)
(JRST 0Q TAG1)
TAG5 (MOVEI 1Q (QUOTE NIL))
(SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP IFALL FSUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (MOVE 5Q -2Q P)
(JUMPE 5Q TAG10)
(HLRZ@ 5Q 5Q)
(MOVEM 5Q 0Q P)
(CAIE 5Q (QUOTE ELSE:) S)
(JRST 0Q TAG7)
TAG10 (MOVE 1Q -1Q P)
(JRST 0Q TAG3)
TAG7 (MOVE 5Q 0Q P)
(CAIN 5Q (QUOTE THEN:) S)
(JRST 0Q TAG2)
(MOVE 1Q 5Q)
(CALL 1Q (E *EVAL) S)
(MOVEM 1Q -1Q P)
(JUMPE 1Q TAG11)
(CAMN 1Q (SPECIAL FAIL) S)
(JRST 0Q TAG11)
(HRRZ@ 5Q -2Q P)
(MOVEM 5Q -2Q P)
(JRST 0Q TAG1)
TAG11 (MOVE 2Q -2Q P)
(MOVEI 1Q (QUOTE ELSE:) S)
(CALL 2Q (E MEMB) S)
(MOVEM 1Q -2Q P)
(JUMPN 1Q TAG14)
(MOVE 1Q (SPECIAL FAIL) S)
(JRST 0Q TAG3)
TAG14
TAG2 (HRRZ@ 5Q -2Q P)
(MOVEM 5Q -2Q P)
(JUMPE 5Q TAG17)
(HLRZ@ 5Q 5Q)
(MOVEM 5Q 0Q P)
(CAIE 5Q (QUOTE ELSE:) S)
(JRST 0Q TAG16)
TAG17 (MOVE 1Q -1Q P)
(JRST 0Q TAG3)
TAG16 (MOVE 1Q 0Q P)
(CALL 1Q (E *EVAL) S)
(MOVEM 1Q -1Q P)
(JRST 0Q TAG2)
TAG3 (SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(DEFP IF IFALL (FEXPR FSUBR))
(LAP IFANY FSUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (MOVE 5Q -2Q P)
(JUMPN 5Q TAG7)
(MOVE 1Q (SPECIAL FAIL) S)
(JRST 0Q TAG3)
TAG7 (HLRZ@ 5Q 5Q)
(MOVEM 5Q 0Q P)
(CAIN 5Q (QUOTE ELSE:) S)
(JRST 0Q TAG2)
(CAIE 5Q (QUOTE THEN:) S)
(JRST 0Q TAG10)
(MOVE 2Q -2Q P)
(MOVEI 1Q (QUOTE ELSE:) S)
(CALL 2Q (E MEMB) S)
(MOVEM 1Q -2Q P)
(JUMPN 1Q TAG2)
(MOVE 1Q (SPECIAL FAIL) S)
(JRST 0Q TAG3)
(JRST 0Q TAG6)
TAG10 (MOVE 1Q 5Q)
(CALL 1Q (E *EVAL) S)
(MOVEM 1Q -1Q P)
(JUMPE 1Q TAG14)
(CAME 1Q (SPECIAL FAIL) S)
(JRST 0Q TAG13)
TAG14 (HRRZ@ 5Q -2Q P)
(MOVEM 5Q -2Q P)
(JRST 0Q TAG1)
TAG13 (MOVE 2Q -2Q P)
(MOVEI 1Q (QUOTE THEN:) S)
(CALL 2Q (E MEMB) S)
(MOVEM 1Q -2Q P)
(JUMPN 1Q TAG15)
(MOVE 1Q -1Q P)
(JRST 0Q TAG3)
TAG15
TAG6
TAG2 (HRRZ@ 5Q -2Q P)
(MOVEM 5Q -2Q P)
(JUMPE 5Q TAG20)
(HLRZ@ 5Q 5Q)
(MOVEM 5Q 0Q P)
(CAIE 5Q (QUOTE ELSE:) S)
(JRST 0Q TAG17)
TAG20 (MOVE 1Q -1Q P)
(JRST 0Q TAG3)
TAG17 (MOVE 1Q 0Q P)
(CALL 1Q (E *EVAL) S)
(MOVEM 1Q -1Q P)
(JRST 0Q TAG2)
TAG3 (SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP ZINST SUBR)
(CLEARM 5Q (SPECIAL ZINSTF) S)
(JCALL 1Q (E ZINST1) S)
NIL
(LAP ZINSTP SUBR)
(MOVEI 5Q (QUOTE P) S)
(MOVEM 5Q (SPECIAL ZINSTF) S)
(CLEARM 5Q (SPECIAL ZINSTPF) S)
(JCALL 1Q (E ZINST1) S)
NIL
(LAP ZINSTD SUBR)
(MOVEI 5Q (QUOTE D) S)
(MOVEM 5Q (SPECIAL ZINSTF) S)
(JCALL 1Q (E ZINST1) S)
NIL
(LAP ZINSTR SUBR)
(MOVEI 5Q (QUOTE R) S)
(MOVEM 5Q (SPECIAL ZINSTF) S)
(JCALL 1Q (E ZINST1) S)
NIL
(LAP ZINSTPD SUBR)
(PUSH P 1Q)
(CALL 1Q (E ZINSTP) S)
(MOVEM 1Q 0Q P)
(MOVE 1Q (SPECIAL ZINSTPF) S)
(JUMPE 1Q TAG2)
(MOVE 1Q 0Q P)
(CALL 1Q (E ZINSTD) S)
(JRST 0Q TAG1)
TAG2 (MOVE 1Q 0Q P)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP ZINST1 SUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (MOVE 5Q (SPECIAL ZINSTF) S)
(CAIE 5Q (QUOTE P) S)
(JRST 0Q TAG7)
(MOVE 1Q -2Q P)
(CALL 1Q (E ZINSTP?) S)
(JUMPE 1Q TAG11)
(MOVE 1Q -2Q P)
(JRST 0Q TAG3)
TAG11 (JRST 0Q TAG6)
TAG7 (MOVE 1Q -2Q P)
(CALL 1Q (E ZINST?) S)
(JUMPE 1Q TAG12)
(MOVE 1Q -2Q P)
(JRST 0Q TAG3)
TAG12
TAG6 (HLRZ@ 1Q -2Q P)
(MOVEM 1Q 0Q P)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG14)
(MOVE 1Q 0Q P)
(CALL 1Q (E LITATOM) S)
(JUMPE 1Q TAG2)
(MOVEI 2Q (QUOTE ZPATF) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E GET) S)
(JUMPE 1Q TAG2)
(MOVE 5Q 0Q P)
(CAIE 5Q (QUOTE QUOTE) S)
(JRST 0Q TAG17)
(HRRZ@ 1Q -2Q P)
(HLRZ@ 1Q 1Q)
(JRST 0Q TAG3)
TAG17 (MOVEI 2Q (QUOTE ZPATEI) S)
(MOVE 1Q 5Q)
(CALL 2Q (E GET) S)
(MOVEM 1Q -1Q P)
(JUMPE 1Q TAG20)
(HRRZ@ 1Q -2Q P)
(HLRZ@ 1Q 1Q)
(CALLF@ 1Q -1Q P)
(MOVEM 1Q -2Q P)
(JRST 0Q TAG1)
TAG20 (MOVE 5Q (SPECIAL ZINSTF) S)
(CAIE 5Q (QUOTE R) S)
(JRST 0Q TAG21)
(HRRZ@ 1Q -2Q P)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E ZLOOK!) S)
(JRST 0Q TAG3)
TAG21 (CAIE 5Q (QUOTE D) S)
(JRST 0Q TAG22)
(MOVE 5Q 0Q P)
(CAIE 5Q (QUOTE *?) S)
(JRST 0Q TAG22)
(HRRZ@ 5Q -2Q P)
(JUMPN 5Q TAG26)
(CALL 0Q (E GENSYM) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE *?) S)
(CALL 2Q (E XCONS) S)
(MOVEM 1Q -2Q P)
TAG26 (HRRZ@ 1Q -2Q P)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E ZLOOK) S)
(MOVE 1Q -2Q P)
(JRST 0Q TAG3)
TAG22 (PUSH P (C 0Q 0Q TAG30 0Q))
(MOVEI D (QUOTE "CAN'T INSTANTIATE ") S)
(PUSH P D)
(PUSH P -4Q P)
(MOVNI 6Q 2Q)
(JCALL 16Q (E ZERROR) S)
TAG30 (MOVEM 1Q -2Q P)
(JRST 0Q TAG1)
(JRST 0Q TAG13)
TAG14 (HLRZ@ 1Q 0Q P)
(MOVEM 1Q -1Q P)
(CALL 1Q (E LITATOM) S)
(JUMPE 1Q TAG31)
(MOVEI 2Q (QUOTE ZPATES) S)
(MOVE 1Q -1Q P)
(CALL 2Q (E GET) S)
(MOVEM 1Q -1Q P)
(JUMPE 1Q TAG31)
(HRRZ@ 1Q 0Q P)
(HLRZ@ 1Q 1Q)
(CALLF@ 1Q -1Q P)
(HRRZ@ 2Q -2Q P)
(CALL 2Q (E *APPEND) S)
(MOVEM 1Q -2Q P)
(JRST 0Q TAG1)
TAG31 (MOVE 1Q 0Q P)
(CALL 1Q (E ZINST1) S)
(MOVEM 1Q 0Q P)
TAG13
TAG2 (HRRZ@ 1Q -2Q P)
(CALL 1Q (E ZINST1) S)
(MOVE 2Q 0Q P)
(CALL 2Q (E XCONS) S)
TAG3 (SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP ZINST? SUBR)
(MOVEI 5Q (QUOTE T) S)
(MOVEM 5Q (SPECIAL ZINST?F) S)
(CALL 1Q (E ZVALV) S)
(MOVEM 1Q (SPECIAL ZTEMPV) S)
(PUSH P (C 0Q 0Q TAG1 0Q))
(MOVEI 1Q (QUOTE T) S)
(JSP 13Q *ERRSET1)
(MOVE 1Q (SPECIAL ZTEMPV) S)
(CALL 1Q (E ZINST?1) S)
(JRST 0Q *ERRSET2)
TAG1 (CALL 1Q (E %CATCH) S)
(MOVE 1Q (SPECIAL THROW) S)
(POPJ P)
NIL
(LAP ZINSTP? SUBR)
(CLEARM 5Q (SPECIAL ZINST?F) S)
(CALL 1Q (E ZVALV) S)
(MOVEM 1Q (SPECIAL ZTEMPV) S)
(PUSH P (C 0Q 0Q TAG1 0Q))
(MOVEI 1Q (QUOTE T) S)
(JSP 13Q *ERRSET1)
(MOVE 1Q (SPECIAL ZTEMPV) S)
(CALL 1Q (E ZINST?1) S)
(JRST 0Q *ERRSET2)
TAG1 (CALL 1Q (E %CATCH) S)
(MOVE 1Q (SPECIAL THROW) S)
(POPJ P)
NIL
(LAP ZINST?1 SUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG5)
(MOVEI 1Q (QUOTE T) S)
(JRST 0Q TAG4)
TAG5 (HLRZ@ 1Q -1Q P)
(MOVEM 1Q 0Q P)
(CALL 1Q (E LITATOM) S)
(JUMPE 1Q TAG6)
(MOVEI 2Q (QUOTE ZPATF) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E GET) S)
(JUMPE 1Q TAG6)
(MOVE 1Q (SPECIAL ZINST?F) S)
(JUMPN 1Q TAG13)
(MOVE 5Q 0Q P)
(CAIN 5Q (QUOTE QUOTE) S)
(JRST 0Q TAG13)
(MOVEI 2Q (QUOTE ZPATEI) S)
(MOVE 1Q 5Q)
(CALL 2Q (E GET) S)
(JUMPN 1Q TAG13)
(MOVEI 2Q (QUOTE ZPATES) S)
(MOVE 1Q 5Q)
(CALL 2Q (E GET) S)
(JUMPE 1Q TAG12)
TAG13 (CLEARM 5Q (SPECIAL THROW) S)
(CLEARM 5Q (SPECIAL CATCH) S)
(MOVEI 1Q (QUOTE THROW) S)
(CALL 1Q (E ERR) S)
(JRST 0Q TAG11)
TAG12 (MOVEI 1Q (QUOTE T) S)
(MOVEM 1Q (SPECIAL ZINSTPF) S)
TAG11 (JRST 0Q TAG4)
TAG6 (MOVE 2Q -1Q P)
(MOVEI 1Q (QUOTE ZINST?1) S)
(PUSHJ P *MAPC)
(MOVEI 1Q (QUOTE T) S)
TAG4 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP ZLOOK SUBR)
(PUSH P 1Q)
(MOVE 2Q (SPECIAL ZALIST) S)
(CALL 2Q (E ASSOC) S)
(JUMPN 1Q TAG1)
(MOVE 2Q (SPECIAL Z*NIL*) S)
(MOVEI 1Q (QUOTE NIL))
(CALL 2Q (E CONS) S)
(MOVE 2Q 0Q P)
(CALL 2Q (E XCONS) S)
(MOVE 2Q (SPECIAL ZALIST) S)
(MOVEM 1Q 0Q P)
(CALL 2Q (E CONS) S)
(MOVEM 1Q (SPECIAL ZALIST) S)
(MOVE 1Q 0Q P)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP ZLOOK! SUBR)
(PUSH P 1Q)
(CALL 1Q (E ZLOOK?) S)
(JUMPE 1Q TAG2)
(MOVE 1Q (SPECIAL ZLOOKV) S)
(JRST 0Q TAG1)
TAG2 (PUSH P (C 0Q 0Q TAG4 0Q))
(MOVEI D (QUOTE "UNBOUND !") S)
(PUSH P D)
(PUSH P -2Q P)
(MOVNI 6Q 2Q)
(JCALL 16Q (E ZERROR) S)
TAG4
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP ZLOOK? SUBR)
(CALL 1Q (E ZLOOK) S)
(HRRZ@ 5Q 1Q)
(HRRZ@ 5Q 5Q)
(MOVEM 5Q (SPECIAL ZLOOKV) S)
(CAME 5Q (SPECIAL Z*NIL*) S)
(JRST 0Q TAG1)
(TDZA 1Q 1Q)
TAG1 (MOVEI 1Q (QUOTE T) S)
(POPJ P)
NIL
(LAP MATCH FSUBR)
(PUSH P 1Q)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E ZINSTP) S)
(PUSH P 1Q)
(HRRZ@ 1Q -1Q P)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E ZINST) S)
(MOVEM 1Q -1Q P)
(CALL 1Q (E ZVALV) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(CALL 2Q (E ZMATCH) S)
(JUMPE 1Q TAG2)
(MOVE 1Q 0Q P)
(JRST 0Q TAG1)
TAG2 (MOVE 1Q (SPECIAL FAIL) S)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP ZMATCH SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P (SPECIAL ZSAVE) S)
(MOVEM 1Q (SPECIAL ZTEMPV) S)
(MOVEM 2Q (SPECIAL ZTEMP2) S)
(PUSH P (C 0Q 0Q TAG6 0Q))
(MOVEI 1Q (QUOTE T) S)
(JSP 13Q *ERRSET1)
(MOVE 1Q (SPECIAL ZTEMPV) S)
(CALL 2Q (E ZMATCH1) S)
(JRST 0Q *ERRSET2)
TAG6 (CALL 1Q (E %CATCH) S)
(JUMPE 1Q TAG5)
(JRST 0Q TAG4)
TAG5 (MOVE 5Q (SPECIAL CATCH) S)
(CAIE 5Q (QUOTE MATCH) S)
(JRST 0Q TAG11)
(MOVE 1Q 0Q P)
(CALL 1Q (E ZRESTORE) S)
(JRST 0Q TAG2)
TAG11 (MOVEI 1Q (QUOTE THROW) S)
(CALL 1Q (E ERR) S)
TAG4 (MOVEI 1Q (QUOTE T) S)
(JRST 0Q TAG1)
TAG2 (MOVEI 1Q (QUOTE NIL))
TAG1 (SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP ZMATCH1 SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(CALL 1Q (E ATOM) S)
(JUMPN 1Q TAG11)
(HLRZ@ 5Q -4Q P)
(MOVEM 5Q 0Q P)
(CAIE 5Q (QUOTE *?Q) S)
(JRST 0Q TAG11)
(MOVE 2Q -3Q P)
(HRRZ@ 1Q -4Q P)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E ZBIND) S)
(JRST 0Q TAG5)
TAG11 (MOVE 1Q -3Q P)
(CALL 1Q (E ATOM) S)
(JUMPN 1Q TAG14)
(HLRZ@ 5Q -3Q P)
(CAIE 5Q (QUOTE *?) S)
(JRST 0Q TAG14)
(MOVE 2Q (SPECIAL ZALIST1) S)
(HRRZ@ 1Q -3Q P)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E ASSOC) S)
(HRRZ@ 5Q 1Q)
(MOVEM 5Q -3Q P)
(MOVE 1Q -4Q P)
(CALL 1Q (E ZINST?) S)
(JUMPE 1Q TAG20)
(MOVE 2Q -4Q P)
(MOVE 1Q -3Q P)
(CALL 2Q (E ZPLACD) S)
(JRST 0Q TAG5)
TAG20 (HLRZ@ 5Q -4Q P)
(CAIE 5Q (QUOTE *?) S)
(JRST 0Q TAG21)
(HRRZ@ 4Q -4Q P)
(JUMPE 4Q TAG21)
(HRRZ@ 1Q -4Q P)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E ZLOOK) S)
(MOVE 2Q -3Q P)
(CALL 2Q (E ZPLACD) S)
(MOVE 2Q (SPECIAL Z*NIL*) S)
(MOVE 1Q -3Q P)
(CALL 2Q (E ZPLACD) S)
(JRST 0Q TAG5)
TAG21 (CLEARM 5Q (SPECIAL THROW) S)
(MOVEI 5Q (QUOTE MATCH) S)
(MOVEM 5Q (SPECIAL CATCH) S)
(MOVEI 1Q (QUOTE THROW) S)
(CALL 1Q (E ERR) S)
(JRST 0Q TAG10)
TAG14 (MOVE 1Q -4Q P)
(CALL 1Q (E ATOM) S)
(JUMPN 1Q TAG4)
(MOVE 1Q 0Q P)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG2)
(MOVE 1Q 0Q P)
(CALL 1Q (E LITATOM) S)
(JUMPE 1Q TAG3)
(MOVEI 2Q (QUOTE ZPATF) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E GET) S)
(JUMPE 1Q TAG3)
(MOVEI 2Q (QUOTE ZPATMI) S)
(MOVE 1Q 0Q P)
(CALL 2Q (E GET) S)
(MOVEM 1Q -2Q P)
(JUMPN 1Q TAG26)
(PUSH P (C 0Q 0Q TAG27 0Q))
(MOVEI D (QUOTE "ILLEGAL PATTERN: ") S)
(PUSH P D)
(PUSH P -6Q P)
(MOVNI 6Q 2Q)
(JCALL 16Q (E ZERROR) S)
TAG27 (JRST 0Q TAG10)
TAG26 (MOVE 1Q -3Q P)
(CALL 1Q (E ZINST?) S)
(JUMPE 1Q TAG30)
(MOVE 2Q -3Q P)
(HRRZ@ 1Q -4Q P)
(CALLF@ 2Q -2Q P)
(JRST 0Q TAG5)
TAG30 (CLEARM 5Q (SPECIAL THROW) S)
(MOVEI 5Q (QUOTE MATCH) S)
(MOVEM 5Q (SPECIAL CATCH) S)
(MOVEI 1Q (QUOTE THROW) S)
(CALL 1Q (E ERR) S)
TAG10
TAG1 (MOVE 1Q -4Q P)
(CALL 1Q (E ATOM) S)
(JUMPN 1Q TAG4)
(HLRZ@ 1Q -4Q P)
(MOVEM 1Q 0Q P)
(CALL 1Q (E ATOM) S)
(JUMPN 1Q TAG3)
TAG2 (HLRZ@ 1Q 0Q P)
(MOVEM 1Q -1Q P)
(CALL 1Q (E LITATOM) S)
(JUMPE 1Q TAG34)
(MOVEI 2Q (QUOTE ZPATF) S)
(MOVE 1Q -1Q P)
(CALL 2Q (E GET) S)
(JUMPE 1Q TAG34)
(MOVE 5Q -3Q P)
(JUMPE 5Q TAG40)
(MOVE 1Q 5Q)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG40)
(CLEARM 5Q (SPECIAL THROW) S)
(MOVEI 5Q (QUOTE MATCH) S)
(MOVEM 5Q (SPECIAL CATCH) S)
(MOVEI 1Q (QUOTE THROW) S)
(CALL 1Q (E ERR) S)
(JRST 0Q TAG37)
TAG40 (MOVEI 2Q (QUOTE ZPATMS) S)
(MOVE 1Q -1Q P)
(CALL 2Q (E GET) S)
(MOVEM 1Q -2Q P)
(JUMPE 1Q TAG43)
(MOVE 3Q -3Q P)
(HRRZ@ 2Q -4Q P)
(HRRZ@ 1Q 0Q P)
(CALLF@ 3Q -2Q P)
(JRST 0Q TAG5)
TAG43
TAG37
TAG34
TAG3 (MOVE 1Q -3Q P)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG45)
(CLEARM 5Q (SPECIAL THROW) S)
(MOVEI 5Q (QUOTE MATCH) S)
(MOVEM 5Q (SPECIAL CATCH) S)
(MOVEI 1Q (QUOTE THROW) S)
(CALL 1Q (E ERR) S)
TAG45 (HLRZ@ 2Q -3Q P)
(MOVE 1Q 0Q P)
(CALL 2Q (E ZMATCH1) S)
(HRRZ@ 5Q -3Q P)
(HRRZ@ 4Q -4Q P)
(MOVEM 4Q -4Q P)
(MOVEM 5Q -3Q P)
(JRST 0Q TAG1)
TAG4 (MOVE 2Q -3Q P)
(MOVE 1Q -4Q P)
(CALL 2Q (E EQUAL) S)
(JUMPE 1Q TAG47)
(MOVEI 1Q (QUOTE T) S)
(JRST 0Q TAG5)
TAG47 (CLEARM 5Q (SPECIAL THROW) S)
(MOVEI 5Q (QUOTE MATCH) S)
(MOVEM 5Q (SPECIAL CATCH) S)
(MOVEI 1Q (QUOTE THROW) S)
(CALL 1Q (E ERR) S)
TAG5 (SUB P (C 5Q 0Q 5Q 0Q))
(POPJ P)
NIL
(LAP ZMEMB SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (HRRZ@ 5Q -1Q P)
(MOVEM 5Q 0Q P)
(JUMPE 5Q TAG3)
(HLRZ@ 5Q 5Q)
(CAME 5Q -2Q P)
(JRST 0Q TAG6)
(MOVE 1Q -1Q P)
(JRST 0Q TAG2)
TAG6 (MOVE 5Q 0Q P)
(MOVEM 5Q -1Q P)
(JRST 0Q TAG1)
TAG3 (MOVEI 1Q (QUOTE NIL))
TAG2 (SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP ZMEMBC SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (HRRZ@ 5Q -1Q P)
(MOVEM 5Q 0Q P)
(JUMPE 5Q TAG3)
(HLRZ@ 2Q 5Q)
(HLRZ@ 2Q 2Q)
(MOVE 1Q -2Q P)
(CALL 2Q (E EQUAL) S)
(JUMPE 1Q TAG6)
(MOVE 1Q -1Q P)
(JRST 0Q TAG2)
TAG6 (MOVE 5Q 0Q P)
(MOVEM 5Q -1Q P)
(JRST 0Q TAG1)
TAG3 (MOVEI 1Q (QUOTE NIL))
TAG2 (SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP ZMEMBN SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (HRRZ@ 5Q -1Q P)
(MOVEM 5Q 0Q P)
(JUMPN 5Q TAG6)
(MOVE 1Q -1Q P)
(JRST 0Q TAG2)
TAG6 (MOVE 2Q -2Q P)
(HLRZ@ 1Q 5Q)
(HRRZ@ 1Q 1Q)
(CALL 2Q (E *GREAT) S)
(JUMPE 1Q TAG7)
(MOVE 5Q 0Q P)
(MOVEM 5Q -1Q P)
(JRST 0Q TAG1)
TAG7 (MOVE 1Q -1Q P)
(JRST 0Q TAG2)
TAG2 (SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP NETADD SUBR)
(PUSH P 1Q)
(CALL 1Q (E CADR) S)
(PUSH P 1Q)
TAG1 (MOVE 5Q 0Q P)
(JUMPE 5Q TAG7)
(HLRZ@ 1Q 5Q)
(HRRZ@ 5Q 5Q)
(HLRZ@ 1Q 1Q)
(MOVEM 5Q 0Q P)
(CALL 1Q (E ZREMOVE) S)
(JRST 0Q TAG1)
TAG7 (HLRZ@ 1Q -1Q P)
(MOVEM 1Q -1Q P)
TAG2 (MOVE 5Q -1Q P)
(JUMPE 5Q TAG14)
(HLRZ@ 1Q 5Q)
(HRRZ@ 5Q 5Q)
(HRRZ@ 2Q 1Q)
(HLRZ@ 1Q 1Q)
(MOVEM 5Q -1Q P)
(CALL 2Q (E ZADD) S)
(JRST 0Q TAG2)
TAG14 (MOVEI 1Q (QUOTE NIL))
(SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP NETDIF LSUBR)
(JSP 3Q *LCALL)
(PUSH P 1Q)
(CALL 1Q (E ZEROP) S)
(JUMPE 1Q TAG2)
(MOVE 1Q (SPECIAL ZSAVEP) S)
(JRST 0Q TAG1)
TAG2 (MOVE 1Q -2Q P)
(HRRZ 1Q 1Q 1Q)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 1Q (E ZNETDIF) S)
NIL
(LAP ZNETDIF SUBR)
(PUSH P 1Q)
(MOVE 5Q (SPECIAL ZSAVE) S)
(PUSH P 5Q)
(PUSH P 5Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (MOVE 5Q -5Q P)
(CAME 5Q -4Q P)
(JRST 0Q TAG6)
(MOVE 1Q -3Q P)
(CALL 1Q (E ZRESTORE) S)
(MOVE 1Q -1Q P)
(CALL 1Q (E NCONS) S)
(MOVE 2Q 0Q P)
(CALL 2Q (E XCONS) S)
(JRST 0Q TAG2)
TAG6 (MOVE 5Q -4Q P)
(JUMPN 5Q TAG7)
(PUSH P (C 0Q 0Q TAG10 0Q))
(MOVEI D (QUOTE "NETDIF ERROR") S)
(PUSH P D)
(MOVNI 6Q 1Q)
(JCALL 16Q (E ZERROR) S)
TAG10 (JRST 0Q TAG5)
TAG7 (MOVE 2Q (SPECIAL ZNET) S)
(HLRZ@ 1Q 5Q)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E TAILP) S)
(JUMPE 1Q TAG11)
(HLRZ@ 5Q -4Q P)
(HRRZ@ 5Q 5Q)
(PUSH P 5Q)
(HLRZ@ 5Q -5Q P)
(HLRZ@ 5Q 5Q)
(HRRZ@ 5Q 5Q)
(HRRZ@ 5Q 5Q)
(POP P 4Q)
(CAME 5Q 4Q)
(JRST 0Q TAG13)
(MOVE 2Q -1Q P)
(HLRZ@ 1Q -4Q P)
(CALL 1Q (E CADAR) S)
(CALL 2Q (E MEMB) S)
(JUMPE 1Q TAG15)
(MOVE 2Q -1Q P)
(HLRZ@ 1Q -4Q P)
(CALL 1Q (E CADAR) S)
(CALL 2Q (E DREMOVE) S)
(MOVEM 1Q -1Q P)
(JRST 0Q TAG14)
TAG15 (MOVE 2Q 0Q P)
(HLRZ@ 1Q -4Q P)
(CALL 1Q (E CADAR) S)
(CALL 2Q (E CONS) S)
(MOVEM 1Q 0Q P)
TAG14 (JRST 0Q TAG12)
TAG13 (MOVE 2Q 0Q P)
(HLRZ@ 1Q 4Q)
(CALL 2Q (E MEMBER) S)
(MOVEM 1Q -2Q P)
(JUMPE 1Q TAG17)
(MOVE 2Q 0Q P)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E DREMOVE) S)
(MOVEM 1Q 0Q P)
(JRST 0Q TAG12)
TAG17 (MOVE 2Q -1Q P)
(HLRZ@ 1Q -4Q P)
(CALL 1Q (E CADR) S)
(CALL 2Q (E CONS) S)
(MOVEM 1Q -1Q P)
TAG12 (HLRZ@ 2Q -4Q P)
(HRRZ@ 2Q 2Q)
(HLRZ@ 1Q -4Q P)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E ZPLACD) S)
TAG11
TAG5 (HRRZ@ 5Q -4Q P)
(MOVEM 5Q -4Q P)
(JRST 0Q TAG1)
TAG2 (SUB P (C 6Q 0Q 6Q 0Q))
(POPJ P)
NIL
(LAP NEXT FSUBR)
(CALL 1Q (E ZSETV) S)
(CLEARM 5Q (SPECIAL THROW) S)
(MOVEI 5Q (QUOTE NEXT) S)
(MOVEM 5Q (SPECIAL CATCH) S)
(MOVEI 1Q (QUOTE THROW) S)
(JCALL 1Q (E ERR) S)
NIL
(LAP NOHASH FSUBR)
(MOVEI 3Q (QUOTE NOHASH) S)
(MOVEI 2Q (QUOTE T) S)
(JCALL 3Q (E PUTLIST) S)
NIL
(LAP ZNOT SUBR)
(PUSH P 1Q)
(CALL 1Q (E ZVALV) S)
(MOVE 2Q (SPECIAL ZHIGH) S)
(PUSH P 1Q)
(MOVE 1Q (SPECIAL ZLOW) S)
(CALL 2Q (E *PLUS) S)
(EXCH 1Q -1Q P)
(CALL 1Q (E ZVALZ) S)
(MOVE 2Q 1Q)
(EXCH 1Q -1Q P)
(CALL 2Q (E *DIF) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 2Q (E ZCONS) S)
NIL
(LAP ZOR FSUBR)
(MOVEI 3Q (QUOTE NIL))
(MOVE 2Q (SPECIAL ZLOW) S)
(JCALL 3Q (E ZANDOR) S)
NIL
(LAP ZPLACD SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(HRRZ@ 5Q 1Q)
(CAMN 2Q 5Q)
(JRST 0Q TAG2)
(MOVE 2Q 5Q)
(CALL 2Q (E CONS) S)
(MOVE 2Q (SPECIAL ZSAVE) S)
(CALL 2Q (E CONS) S)
(MOVEM 1Q (SPECIAL ZSAVE) S)
(MOVE 5Q 0Q P)
(HRRM@ 5Q -1Q P)
(MOVE 1Q -1Q P)
(JRST 0Q TAG1)
TAG2 (MOVEI 1Q (QUOTE NIL))
TAG1 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP POP FSUBR)
(HLRZ@ 5Q 1Q)
(PUSH P 5Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(MOVE 1Q 5Q)
(CALL 1Q (E *EVAL) S)
(MOVEM 1Q 0Q P)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG5)
(PUSH P (C 0Q 0Q TAG6 0Q))
(MOVEI D (QUOTE "CAN'T POP ") S)
(PUSH P D)
(PUSH P -3Q P)
(MOVEI D (QUOTE " = ") S)
(PUSH P D)
(PUSH P -4Q P)
(MOVNI 6Q 4Q)
(JCALL 16Q (E ZERROR) S)
TAG6 (JRST 0Q TAG4)
TAG5 (HRRZ@ 2Q 0Q P)
(MOVE 1Q -1Q P)
(CALL 2Q (E ZSET) S)
(HLRZ@ 1Q 0Q P)
(JRST 0Q TAG1)
TAG4 (MOVEI 1Q (QUOTE NIL))
TAG1 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP PROC FSUBR)
(PUSH P 1Q)
(PUSH P (SPECIAL DEFDEMON) S)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (HLRZ@ 5Q -10Q P)
(HRRZ@ 4Q -10Q P)
(HLRZ@ 4Q 4Q)
(MOVEM 4Q -1Q P)
(MOVEM 5Q 0Q P)
(CAIE 5Q (QUOTE NAME:) S)
(JRST 0Q TAG7)
(MOVEM 4Q -2Q P)
(JRST 0Q TAG6)
TAG7 (CAIE 5Q (QUOTE GLOBAL:) S)
(JRST 0Q TAG10)
(MOVEM 4Q -3Q P)
(JRST 0Q TAG6)
TAG10 (CAIE 5Q (QUOTE DEMON:) S)
(JRST 0Q TAG11)
(MOVE 1Q 4Q)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG13)
(EXCH 5Q 4Q)
(JRST 0Q TAG12)
TAG13 (MOVE 1Q 4Q)
(CALL 1Q (E *EVAL) S)
(MOVE 5Q 1Q)
TAG12 (MOVEM 5Q -7Q P)
(JRST 0Q TAG6)
TAG11 (MOVEI 2Q (QUOTE (THRESH: ZVAL:)) S)
(MOVE 1Q 5Q)
(CALL 2Q (E MEMB) S)
(JUMPE 1Q TAG15)
(MOVE 1Q 4Q)
(CALL 1Q (E *EVAL) S)
(MOVEM 1Q -4Q P)
(JRST 0Q TAG6)
TAG15 (CAIE 5Q (QUOTE ACCUM:) S)
(JRST 0Q TAG16)
(MOVE 1Q 4Q)
(CALL 1Q (E *EVAL) S)
(MOVEM 1Q -5Q P)
(JRST 0Q TAG6)
TAG16 (MOVE 3Q -2Q P)
(JUMPN 3Q TAG2)
(CALL 0Q (E ZGENPROC) S)
(MOVE 2Q -6Q P)
(MOVEM 1Q -2Q P)
(CALL 2Q (E CONS) S)
(MOVEI 2Q (QUOTE NAME:) S)
(CALL 2Q (E XCONS) S)
(MOVEM 1Q -6Q P)
(JRST 0Q TAG2)
TAG6 (HRRZ@ 5Q -10Q P)
(HRRZ@ 5Q 5Q)
(MOVEM 5Q -10Q P)
(JRST 0Q TAG1)
TAG2 (MOVE 5Q -4Q P)
(JUMPN 5Q TAG21)
(MOVEI 2Q (QUOTE DEFZVAL) S)
(MOVE 1Q -7Q P)
(CALL 2Q (E GET) S)
(EXCH 5Q 1Q)
(JUMPN 5Q TAG22)
(MOVE 5Q (SPECIAL DEFZVAL) S)
TAG22 (MOVEM 5Q -4Q P)
TAG21 (MOVE 5Q -5Q P)
(JUMPN 5Q TAG24)
(MOVEI 2Q (QUOTE DEFACCUM) S)
(MOVE 1Q -7Q P)
(CALL 2Q (E GET) S)
(EXCH 5Q 1Q)
(JUMPN 5Q TAG25)
(MOVE 5Q (SPECIAL DEFACCUM) S)
TAG25 (MOVEM 5Q -5Q P)
TAG24 (MOVE 2Q -6Q P)
(MOVEI 1Q (QUOTE PROC) S)
(CALL 2Q (E CONS) S)
(MOVEI 3Q (QUOTE PROC) S)
(MOVE 2Q 1Q)
(MOVE 1Q -2Q P)
(CALL 3Q (E PUT) S)
(HRRZ@ 1Q -10Q P)
(CALL 1Q (E NCONS) S)
(MOVE 2Q -5Q P)
(CALL 2Q (E XCONS) S)
(MOVE 2Q -4Q P)
(CALL 2Q (E XCONS) S)
(MOVE 2Q -7Q P)
(CALL 2Q (E XCONS) S)
(MOVE 2Q -3Q P)
(CALL 2Q (E XCONS) S)
(MOVE 2Q 0Q P)
(CALL 2Q (E XCONS) S)
(MOVEI 3Q (QUOTE PDEF) S)
(MOVE 2Q 1Q)
(MOVE 1Q -2Q P)
(CALL 3Q (E PUT) S)
(MOVE 1Q -2Q P)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE QUOTE) S)
(CALL 2Q (E XCONS) S)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE (ZINSTPD (CAR SKELETON))) S)
(CALL 1Q (E NCONS) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE ZCALL) S)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE (SKELETON)) S)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE LAMBDA) S)
(CALL 2Q (E XCONS) S)
(MOVEI 3Q (QUOTE FEXPR) S)
(MOVE 2Q 1Q)
(MOVE 1Q -2Q P)
(CALL 3Q (E PUT) S)
(CALL 0Q (E INCH) S)
(JUMPN 1Q TAG26)
(MOVE 2Q (SPECIAL ALLFNS) S)
(MOVE 1Q -2Q P)
(CALL 2Q (E ENTER) S)
(MOVEM 1Q (SPECIAL ALLFNS) S)
TAG26 (MOVE 1Q -2Q P)
(SUB P (C 11Q 0Q 11Q 0Q))
(POPJ P)
NIL
(LAP *DEMON SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(CAME 1Q (SPECIAL FAIL) S)
(JRST 0Q TAG2)
(PUSH P (C 0Q 0Q TAG3 0Q))
(MOVNI 6Q 0Q)
(JCALL 16Q (E FAIL) S)
TAG3 (JRST 0Q TAG1)
TAG2 (CAME 1Q (SPECIAL DONE) S)
(JRST 0Q TAG4)
(MOVE 1Q 3Q)
(JRST 0Q TAG1)
TAG4 (CALL 1Q (E ZVALZ) S)
(MOVE 2Q -1Q P)
(MOVEM 1Q -2Q P)
(CALL 2Q (E *LESS) S)
(JUMPE 1Q TAG5)
(PUSH P (C 0Q 0Q TAG6 0Q))
(MOVNI 6Q 0Q)
(JCALL 16Q (E FAIL) S)
TAG6 (JRST 0Q TAG1)
TAG5 (MOVE 2Q 0Q P)
(MOVE 1Q -2Q P)
(CALL 2Q (E *MIN) S)
TAG1 (SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP ZPROCN SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(PUSH P 4Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(CALL 1Q (E ATOM) S)
(JUMPN 1Q TAG6)
(MOVE 1Q -5Q P)
(CALL 1Q (E *EVAL) S)
(MOVEM 1Q -5Q P)
TAG6
TAG1 (MOVEI 2Q (QUOTE PDEF) S)
(MOVE 1Q -5Q P)
(CALL 2Q (E GET) S)
(MOVEM 1Q 0Q P)
(JUMPN 1Q TAG10)
(PUSH P (C 0Q 0Q TAG11 0Q))
(PUSH P -6Q P)
(MOVEI D (QUOTE " IS NOT A PROC") S)
(PUSH P D)
(MOVNI 6Q 2Q)
(JCALL 16Q (E ZERROR) S)
TAG11 (MOVEM 1Q -5Q P)
(JRST 0Q TAG1)
TAG10 (MOVE 1Q 0Q P)
(CALLF@ 1Q -3Q P)
(HLRZ@ 5Q 1Q)
(MOVEM 1Q 0Q P)
(MOVEM 5Q -3Q P)
(MOVE 4Q -2Q P)
(JUMPN 4Q TAG13)
(MOVE 1Q 5Q)
(JRST 0Q TAG2)
TAG13 (HLRZ@ 1Q 4Q)
(MOVEM 1Q -2Q P)
(CALL 1Q (E *EVAL) S)
(HRLM@ 1Q 0Q P)
(MOVEI 2Q (QUOTE PROC) S)
(MOVE 1Q -5Q P)
(CALL 2Q (E GET) S)
(MOVE 2Q 1Q)
(MOVEM 1Q 0Q P)
(MOVE 1Q -4Q P)
(CALL 2Q (E MEMB) S)
(MOVEM 1Q -1Q P)
(JUMPE 1Q TAG16)
(HRRZ@ 5Q 1Q)
(MOVE 4Q -2Q P)
(HRLM@ 4Q 5Q)
(JRST 0Q TAG15)
TAG16 (HRRZ@ 2Q 0Q P)
(HRRZ@ 2Q 2Q)
(HRRZ@ 2Q 2Q)
(MOVE 1Q -2Q P)
(CALL 2Q (E CONS) S)
(MOVE 2Q -4Q P)
(CALL 2Q (E XCONS) S)
(HRRZ@ 5Q 0Q P)
(HRRZ@ 5Q 5Q)
(HRRM@ 1Q 5Q)
TAG15 (MOVE 5Q -4Q P)
(CAIE 5Q (QUOTE DEMON:) S)
(JRST 0Q TAG21)
(MOVE 1Q 0Q P)
(CALL 1Q (E *EVAL) S)
TAG21 (MOVE 1Q -3Q P)
TAG2 (SUB P (C 6Q 0Q 6Q 0Q))
(POPJ P)
NIL
(LAP ZPROC SUBR)
(JSP 6Q SPECBIND)
(0Q 1Q (SPECIAL ZDEMON) S)
(0Q 2Q (SPECIAL ZTHRSH) S)
(0Q 3Q (SPECIAL ZACCUM) S)
(0Q 4Q (SPECIAL ZLIST) S)
(0Q 0Q (SPECIAL ZLIST1) S)
(0Q 0Q (SPECIAL ZSAVEP) S)
(MOVE 5Q (SPECIAL ZRESETV) S)
(JUMPE 5Q TAG14)
(MOVEI 1Q (QUOTE (ZSAVED ZALIST ZNAME ZDEMON ZTHRSH ZACCUM ZLIST ZLIST1 ZSAVEP)) S)
(CALL 1Q (E ZRESET) S)
(CAMN 1Q (SPECIAL Z*NIL*) S)
(JRST 0Q TAG3)
(JRST 0Q TAG2)
TAG14 (MOVE 5Q (SPECIAL ZSAVE) S)
(MOVEM 5Q (SPECIAL ZSAVEP) S)
(MOVE 5Q (SPECIAL ZLIST) S)
(MOVEM 5Q (SPECIAL ZLIST1) S)
TAG1 (HLRZ@ 1Q (SPECIAL ZLIST) S)
(MOVEM 1Q (SPECIAL ZVALUE) S)
(CALL 1Q (E ATOM) S)
(JUMPN 1Q TAG3)
TAG2 (PUSH P (C 0Q 0Q TAG21 0Q))
(MOVEI 1Q (QUOTE T) S)
(JSP 13Q *ERRSET1)
(MOVE 1Q (SPECIAL ZVALUE) S)
(CALL 1Q (E *EVAL) S)
(CALL 1Q (E ZCALLD) S)
(JRST 0Q *ERRSET2)
TAG21 (CALL 1Q (E %CATCH) S)
(JUMPE 1Q TAG20)
(JRST 0Q TAG17)
TAG20 (MOVE 5Q (SPECIAL CATCH) S)
(CAIN 5Q (QUOTE GOTO) S)
(JRST 0Q TAG5)
(CAIN 5Q (QUOTE SUCCEED) S)
(JRST 0Q TAG4)
(CAIN 5Q (QUOTE SUCCEED?) S)
(JRST 0Q TAG6)
(CAIE 5Q (QUOTE EXIT) S)
(JRST 0Q TAG24)
(PUSH P (C 0Q 0Q TAG25 0Q))
(MOVEI D (QUOTE "EXIT - NO FOR") S)
(PUSH P D)
(MOVNI 6Q 1Q)
(JCALL 16Q (E ZERROR) S)
TAG25 (JRST 0Q TAG23)
TAG24 (CAIE 5Q (QUOTE NEXT) S)
(JRST 0Q TAG26)
(PUSH P (C 0Q 0Q TAG27 0Q))
(MOVEI D (QUOTE "NEXT - NO FOR") S)
(PUSH P D)
(MOVNI 6Q 1Q)
(JCALL 16Q (E ZERROR) S)
TAG27 (JRST 0Q TAG23)
TAG26 (CAIE 5Q (QUOTE BACK) S)
(JRST 0Q TAG30)
(PUSH P (C 0Q 0Q TAG31 0Q))
(MOVEI D (QUOTE "BACK - NO FOR") S)
(PUSH P D)
(MOVNI 6Q 1Q)
(JCALL 16Q (E ZERROR) S)
TAG31 (JRST 0Q TAG23)
TAG30 (MOVEI 1Q (QUOTE THROW) S)
(CALL 1Q (E ERR) S)
TAG23
TAG17
TAG3 (HRRZ@ 5Q (SPECIAL ZLIST) S)
(MOVEM 5Q (SPECIAL ZLIST) S)
(JUMPN 5Q TAG1)
(MOVE 5Q (SPECIAL Z*NIL*) S)
(MOVEM 5Q (SPECIAL ZVALUE) S)
TAG4 (CLEARM 5Q (SPECIAL ZRESETV) S)
(JRST 0Q TAG7)
TAG5 (MOVE 2Q (SPECIAL ZLIST1) S)
(MOVE 1Q (SPECIAL THROW) S)
(CALL 2Q (E MEMB) S)
(MOVEM 1Q (SPECIAL ZLIST) S)
(JUMPN 1Q TAG3)
(PUSH P (C 0Q 0Q TAG37 0Q))
(MOVEI D (QUOTE "GOTO ") S)
(PUSH P D)
(PUSH P (SPECIAL THROW) S)
(MOVEI D (QUOTE " ILLEGAL") S)
(PUSH P D)
(MOVNI 6Q 3Q)
(JCALL 16Q (E ZERROR) S)
TAG37 (MOVEM 1Q (SPECIAL THROW) S)
(JRST 0Q TAG5)
TAG6 (MOVE 1Q (SPECIAL ZSAVEP) S)
(CALL 1Q (E NCONS) S)
(MOVE 2Q (SPECIAL ZLIST1) S)
(CALL 2Q (E XCONS) S)
(MOVE 2Q (SPECIAL ZLIST) S)
(CALL 2Q (E XCONS) S)
(MOVE 2Q (SPECIAL ZACCUM) S)
(CALL 2Q (E XCONS) S)
(MOVE 2Q (SPECIAL ZTHRSH) S)
(CALL 2Q (E XCONS) S)
(MOVE 2Q (SPECIAL ZDEMON) S)
(CALL 2Q (E XCONS) S)
(MOVE 2Q (SPECIAL ZNAME) S)
(CALL 2Q (E XCONS) S)
(MOVE 2Q (SPECIAL ZALIST) S)
(CALL 2Q (E XCONS) S)
(MOVE 2Q (SPECIAL ZSAVED) S)
(CALL 2Q (E XCONS) S)
(MOVE 2Q (SPECIAL ZRESETV) S)
(CALL 2Q (E CONS) S)
(MOVEM 1Q (SPECIAL ZRESETV) S)
TAG7 (MOVE 1Q (SPECIAL DONE) S)
(CALL 1Q (E ZCALLD) S)
(MOVE 5Q (SPECIAL ZVALUE) S)
(CAME 5Q (SPECIAL Z*NIL*) S)
(JRST 0Q TAG41)
(MOVE 2Q (SPECIAL ZACCUM) S)
(MOVE 1Q (SPECIAL Z*NIL*) S)
(CALL 2Q (E CONS) S)
(MOVEM 1Q (SPECIAL ZVALUE) S)
TAG41 (MOVE 1Q (SPECIAL ZVALUE) S)
(JRST 0Q SPECSTR)
NIL
(LAP ZPROC? SUBR)
(PUSH P 1Q)
(CAIN 1Q (QUOTE DEDUCE:) S)
(JRST 0Q TAG3)
(CAIE 1Q (QUOTE D:) S)
(JRST 0Q TAG2)
TAG3 (MOVE 1Q (SPECIAL DPROCS) S)
(JRST 0Q TAG1)
TAG2 (MOVE 5Q 0Q P)
(CAIN 5Q (QUOTE ASSERT:) S)
(JRST 0Q TAG5)
(CAIE 5Q (QUOTE A:) S)
(JRST 0Q TAG4)
TAG5 (MOVE 1Q (SPECIAL APROCS) S)
(JRST 0Q TAG1)
TAG4 (MOVE 5Q 0Q P)
(CAIN 5Q (QUOTE ERASE:) S)
(JRST 0Q TAG7)
(CAIE 5Q (QUOTE E:) S)
(JRST 0Q TAG6)
TAG7 (MOVE 1Q (SPECIAL EPROCS) S)
(JRST 0Q TAG1)
TAG6 (MOVEI 1Q (QUOTE NIL))
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP PUSH FSUBR)
(PUSH P 1Q)
(HLRZ@ 1Q 1Q)
(PUSH P 1Q)
(HRRZ@ 1Q -1Q P)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E *EVAL) S)
(PUSH P 1Q)
(HLRZ@ 1Q -2Q P)
(CALL 1Q (E *EVAL) S)
(POP P 2Q)
(CALL 2Q (E XCONS) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 2Q (E ZSET) S)
NIL
(DEFPROP PUSH PP-SPECIAL PRINTMACRO)
(LAP PUSH? FSUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(CALL 1Q (E CADR) S)
(CALL 1Q (E *EVAL) S)
(MOVEM 1Q -1Q P)
(HLRZ@ 1Q -2Q P)
(CALL 1Q (E *EVAL) S)
(MOVE 2Q 1Q)
(MOVEM 1Q 0Q P)
(MOVE 1Q -1Q P)
(CALL 2Q (E MEMBER) S)
(JUMPE 1Q TAG5)
(MOVE 1Q 0Q P)
(JRST 0Q TAG1)
TAG5 (MOVE 2Q 0Q P)
(MOVE 1Q -1Q P)
(CALL 2Q (E CONS) S)
(MOVE 2Q 1Q)
(HLRZ@ 1Q -2Q P)
(CALL 2Q (E ZSET) S)
(JRST 0Q TAG1)
TAG1 (SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP ZPUT SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(MOVE 2Q 3Q)
(CALL 2Q (E GET) S)
(JUMPN 1Q TAG1)
(CALL 0Q (E NCONS) S)
(MOVE 2Q 1Q)
(MOVE 1Q -2Q P)
(CALL 3Q (E PUT) S)
TAG1 (MOVE 2Q -1Q P)
(CALL 2Q (E ZPLACD) S)
(EXCH 1Q -1Q P)
(SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP RANGE SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(CALL 2Q (E *GREAT) S)
(JUMPE 1Q TAG2)
(PUSH P -1Q P)
(MOVE 5Q -1Q P)
(MOVEM 5Q -2Q P)
(POP P -1Q P)
TAG2 (MOVE 5Q -1Q P)
(MOVEM 5Q (SPECIAL ZLOW) S)
(MOVE 5Q 0Q P)
(MOVEM 5Q (SPECIAL ZHIGH) S)
(MOVE 1Q -1Q P)
(CALL 1Q (E NCONS) S)
(MOVE 2Q 0Q P)
(CALL 2Q (E XCONS) S)
(MOVEM 1Q (SPECIAL ZRANGE) S)
(EXCH 5Q -1Q P)
(MOVEM 5Q (SPECIAL DEFZVAL) S)
(POP P (SPECIAL DEFACCUM) S)
(MOVEI 1Q (QUOTE T) S)
(SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP ZRANGEP SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(HLRZ@ 2Q 2Q)
(CALL 2Q (E *GREAT) S)
(JUMPE 1Q TAG2)
(MOVEI 1Q (QUOTE NIL))
(JRST 0Q TAG1)
TAG2 (HRRZ@ 2Q 0Q P)
(HLRZ@ 2Q 2Q)
(MOVE 1Q -1Q P)
(CALL 2Q (E *LESS) S)
(JUMPE 1Q TAG3)
(MOVEI 1Q (QUOTE NIL))
(JRST 0Q TAG1)
TAG3 (MOVEI 1Q (QUOTE T) S)
TAG1 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP ZRANGER SUBR)
(PUSH P 1Q)
(HRRZ@ 2Q 1Q)
(HLRZ@ 2Q 2Q)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E *LESS) S)
(JUMPE 1Q TAG2)
(MOVE 1Q 0Q P)
(CALL 1Q (E REVERSE) S)
(JRST 0Q TAG1)
TAG2 (MOVE 1Q 0Q P)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP ZRANGES SUBR)
(PUSH P 1Q)
(JUMPN 1Q TAG2)
(MOVE 1Q (SPECIAL ZRANGE) S)
(JRST 0Q TAG1)
TAG2 (HLRZ@ 1Q 1Q)
(CALL 1Q (E ZINST) S)
(MOVEM 1Q 0Q P)
(CALL 1Q (E ATOM) S)
(JUMPN 1Q TAG3)
(MOVE 1Q 0Q P)
(JRST 0Q TAG1)
TAG3 (MOVE 1Q 0Q P)
(CALL 1Q (E NCONS) S)
(MOVE 2Q (SPECIAL ZHIGH) S)
(CALL 2Q (E XCONS) S)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP READNET SUBR)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
TAG1 (CALL 0Q (E READ) S)
(MOVEM 1Q 0Q P)
(JUMPN 1Q TAG6)
(MOVEI 1Q (QUOTE Net-Loaded) S)
(JRST 0Q TAG2)
TAG6 (CALL 1Q (E ZPROC?) S)
(MOVEM 1Q -2Q P)
(JUMPE 1Q TAG7)
(MOVEM 1Q -1Q P)
(JRST 0Q TAG1)
TAG7 (MOVE 5Q -1Q P)
(JUMPE 5Q TAG11)
(MOVE 1Q 0Q P)
(CALL 1Q (E *EVAL) S)
(MOVEM 1Q 0Q P)
(MOVE 2Q -1Q P)
(CALL 2Q (E MEMB) S)
(JUMPN 1Q TAG12)
(HRRZ@ 2Q -1Q P)
(MOVE 1Q 0Q P)
(CALL 2Q (E CONS) S)
(MOVE 2Q 1Q)
(MOVE 1Q -1Q P)
(CALL 2Q (E ZPLACD) S)
TAG12 (JRST 0Q TAG10)
TAG11 (HRRZ@ 2Q 0Q P)
(HLRZ@ 1Q 0Q P)
(CALL 2Q (E ZADD) S)
TAG10 (JRST 0Q TAG1)
TAG2 (SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(DEFP *REMOVE REMOVE SUBR)
(LAP REMOVE FSUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(HLRZ@ 1Q 1Q)
(CALL 1Q (E ZPROC?) S)
(MOVEM 1Q 0Q P)
(JUMPN 1Q TAG5)
(HLRZ@ 1Q -2Q P)
(CALL 1Q (E ZINST) S)
(CALL 1Q (E ZREMOVE) S)
(JRST 0Q TAG1)
TAG5 (HRRZ@ 1Q -2Q P)
(HLRZ@ 1Q 1Q)
(MOVEM 1Q -1Q P)
(CALL 1Q (E ATOM) S)
(JUMPN 1Q TAG6)
(MOVE 1Q -1Q P)
(CALL 1Q (E *EVAL) S)
(MOVEM 1Q -1Q P)
TAG6 (MOVE 2Q 0Q P)
(MOVE 1Q -1Q P)
(CALL 2Q (E ZMEMB) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG10)
(HRRZ@ 2Q 1Q)
(HRRZ@ 2Q 2Q)
(CALL 2Q (E ZPLACD) S)
(MOVE 5Q (SPECIAL ZTRACEDFNS) S)
(JUMPE 5Q TAG12)
(MOVEI 4Q (QUOTE 0Q))
(MOVE 3Q -1Q P)
(MOVEI 2Q (QUOTE NIL))
(MOVEI 1Q (QUOTE (REMOVE NET)) S)
(CALL 4Q (E ZBREAK1) S)
TAG12 (MOVE 1Q -1Q P)
(JRST 0Q TAG1)
TAG10 (MOVE 1Q (SPECIAL FAIL) S)
(JRST 0Q TAG1)
TAG1 (SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP ZREMOVE SUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(MOVE 2Q (SPECIAL ZNET) S)
(CALL 2Q (E ZMEMBC) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG6)
(HRRZ@ 5Q 1Q)
(HLRZ@ 5Q 5Q)
(HRRZ@ 2Q 1Q)
(HRRZ@ 2Q 2Q)
(MOVEM 5Q -1Q P)
(CALL 2Q (E ZPLACD) S)
(JRST 0Q TAG5)
TAG6 (MOVE 1Q (SPECIAL FAIL) S)
(JRST 0Q TAG2)
TAG5 (HLRZ@ 1Q -1Q P)
(CALL 1Q (E ZATOMS) S)
(PUSH P 1Q)
TAG1 (MOVE 5Q 0Q P)
(JUMPE 5Q TAG14)
(HLRZ@ 1Q 5Q)
(HRRZ@ 5Q 5Q)
(MOVE 2Q (SPECIAL ZINDEX) S)
(CALL 2Q (E GET) S)
(MOVEM 1Q -1Q P)
(HLRZ@ 1Q 1Q)
(MOVEM 1Q 0Q P)
(HRRZ@ 1Q 1Q)
(PUSH P 5Q)
(CALL 1Q (E SUB1) S)
(MOVE 2Q 1Q)
(EXCH 1Q -1Q P)
(CALL 2Q (E ZPLACD) S)
(MOVE 2Q -2Q P)
(MOVE 1Q -3Q P)
(CALL 2Q (E ZMEMB) S)
(HRRZ@ 2Q 1Q)
(HRRZ@ 2Q 2Q)
(MOVEM 1Q -2Q P)
(CALL 2Q (E ZPLACD) S)
(POP P -1Q P)
(JRST 0Q TAG1)
TAG14 (SUB P (C 1Q 0Q 1Q 0Q))
(MOVE 5Q (SPECIAL ZTRACEDFNS) S)
(JUMPE 5Q TAG16)
(MOVEI 4Q (QUOTE 0Q))
(MOVE 3Q -1Q P)
(MOVEI 2Q (QUOTE NIL))
(MOVEI 1Q (QUOTE (REMOVE NET)) S)
(CALL 4Q (E ZBREAK1) S)
TAG16 (MOVE 1Q -1Q P)
(CALL 1Q (E ZCAR) S)
TAG2 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP ZREMPROP SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(CALL 2Q (E GET) S)
(MOVEM 1Q -1Q P)
(JUMPE 1Q TAG2)
(MOVEI 2Q (QUOTE NIL))
(CALL 2Q (E ZPLACD) S)
(JUMPE 1Q TAG4)
(MOVEI 1Q (QUOTE T) S)
TAG4
TAG2 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP ZRESET SUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q TAG1 0Q))
(MOVEI D (QUOTE SET) S)
(PUSH P D)
(PUSH P 1Q)
(HLRZ@ 5Q (SPECIAL ZRESETV) S)
(PUSH P 5Q)
(MOVNI 6Q 3Q)
(JCALL 16Q (E MAPC) S)
TAG1 (HRRZ@ 1Q (SPECIAL ZRESETV) S)
(MOVEM 1Q (SPECIAL ZRESETV) S)
(JUMPN 1Q TAG3)
(MOVE 1Q (SPECIAL Z*NIL*) S)
(JRST 0Q TAG2)
TAG3 (MOVEI 2Q (QUOTE (NIL NIL NIL)) S)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E CONS) S)
(MOVEM 1Q (SPECIAL ZVALUE) S)
(HRRZ@ 1Q (SPECIAL ZRESETV) S)
(MOVEM 1Q (SPECIAL ZRESETV) S)
TAG2 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP RESTORE LSUBR)
(JSP 3Q *LCALL)
(PUSH P 1Q)
(CALL 1Q (E ZEROP) S)
(JUMPE 1Q TAG2)
(MOVE 1Q (SPECIAL ZSAVEP) S)
(JRST 0Q TAG1)
TAG2 (MOVE 1Q -2Q P)
(HRRZ 1Q 1Q 1Q)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 1Q (E ZRESTORE) S)
NIL
(LAP ZRESTORE SUBR)
(PUSH P 1Q)
(MOVE 2Q (SPECIAL ZSAVE) S)
(CALL 2Q (E TAILP) S)
(JUMPN 1Q TAG6)
(PUSH P (C 0Q 0Q TAG7 0Q))
(MOVEI D (QUOTE "BACKTRACK ERROR - RESTORE") S)
(PUSH P D)
(MOVNI 6Q 1Q)
(JCALL 16Q (E ZERROR) S)
TAG7
TAG6
TAG1 (MOVE 5Q 0Q P)
(CAME 5Q (SPECIAL ZSAVE) S)
(JRST 0Q TAG11)
(MOVEI 1Q (QUOTE T) S)
(JRST 0Q TAG2)
TAG11 (HLRZ@ 5Q (SPECIAL ZSAVE) S)
(HLRZ@ 5Q 5Q)
(PUSH P 5Q)
(HLRZ@ 5Q (SPECIAL ZSAVE) S)
(HRRZ@ 5Q 5Q)
(HRRM@ 5Q 0Q P)
(SUB P (C 1Q 0Q 1Q 0Q))
(HRRZ@ 5Q (SPECIAL ZSAVE) S)
(MOVEM 5Q (SPECIAL ZSAVE) S)
(JRST 0Q TAG1)
TAG2 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP SAVE SUBR)
(MOVE 1Q (SPECIAL ZSAVE) S)
(POPJ P)
NIL
(DEFV SAVE T)
(LAP ZSET SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(JUMPN 1Q TAG5)
(PUSH P (C 0Q 0Q TAG6 0Q))
(MOVEI D (QUOTE "CAN'T CHANGE VALUE OF NIL") S)
(PUSH P D)
(MOVNI 6Q 1Q)
(JCALL 16Q (E ZERROR) S)
TAG6 (JRST 0Q TAG4)
TAG5 (CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG7)
(MOVEI 2Q (QUOTE VALUE) S)
(MOVE 1Q -2Q P)
(CALL 2Q (E GET) S)
(MOVEM 1Q 0Q P)
(JUMPN 1Q TAG10)
(CALL 0Q (E UNBOUND) S)
(MOVE 2Q -2Q P)
(CALL 2Q (E XCONS) S)
(MOVEI 3Q (QUOTE VALUE) S)
(MOVE 2Q 1Q)
(MOVEM 1Q 0Q P)
(MOVE 1Q -2Q P)
(CALL 3Q (E PUT) S)
TAG10 (MOVE 2Q -1Q P)
(MOVE 1Q 0Q P)
(CALL 2Q (E ZPLACD) S)
(JRST 0Q TAG4)
TAG7 (HRRZ@ 1Q -2Q P)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E ZBIND) S)
TAG4 (MOVE 1Q -1Q P)
(SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP ZSETV SUBR)
(PUSH P 1Q)
(JUMPN 1Q TAG2)
(MOVE 1Q (SPECIAL Z*NIL*) S)
(MOVEM 1Q (SPECIAL ZVALUE) S)
(JRST 0Q TAG1)
TAG2 (HRRZ@ 1Q 1Q)
(PUSH P 1Q)
(HLRZ@ 1Q -1Q P)
(CALL 1Q (E ZINST) S)
(MOVEM 1Q (SPECIAL ZVALUE) S)
(POP P 1Q)
(JUMPE 1Q TAG3)
(HRRZ@ 1Q 0Q P)
(HLRZ@ 1Q 1Q)
(PUSH P (SPECIAL ZVALUE) S)
(CALL 1Q (E *EVAL) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(CALL 2Q (E ZCONS) S)
(MOVEM 1Q (SPECIAL ZVALUE) S)
TAG3
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP STATE FSUBR)
(PUSH P 1Q)
(CALL 0Q (E OUTCH) S)
(PUSH P 1Q)
(JUMPE 1Q TAG5)
(CALL 0Q (E TERPRI) S)
(MOVEI 2Q (QUOTE NIL))
(MOVEI 1Q (QUOTE "(READNET)") S)
(CALL 2Q (E PRINAC) S)
(CALL 0Q (E TERPRI) S)
TAG5 (HRRZ@ 5Q (SPECIAL ZNET) S)
(JUMPE 5Q TAG7)
(MOVE 5Q -1Q P)
(JUMPE 5Q TAG12)
(HLRZ@ 5Q 5Q)
(CAIE 5Q (QUOTE NET) S)
(JRST 0Q TAG7)
TAG12 (MOVE 5Q 0Q P)
(JUMPN 5Q TAG14)
(CALL 0Q (E TERPRI) S)
(MOVEI 2Q (QUOTE NIL))
(MOVEI 1Q (QUOTE "==NET==") S)
(CALL 2Q (E PRINAC) S)
(CALL 0Q (E TERPRI) S)
TAG14 (HRRZ@ 2Q (SPECIAL ZNET) S)
(MOVEI 1Q (QUOTE PRINT) S)
(PUSHJ P *MAPC)
(CALL 0Q (E TERPRI) S)
TAG7 (MOVE 5Q -1Q P)
(JUMPE 5Q TAG17)
(HLRZ@ 5Q 5Q)
(CAIE 5Q (QUOTE PROCS) S)
(JRST 0Q TAG16)
TAG17 (HRRZ@ 5Q (SPECIAL DPROCS) S)
(JUMPE 5Q TAG21)
(MOVE 1Q 0Q P)
(JUMPE 1Q TAG23)
(MOVEI 1Q (QUOTE DEDUCE:) S)
(JRST 0Q TAG22)
TAG23 (MOVEI 1Q (QUOTE ==DEDUCE-PROCS==) S)
TAG22 (CALL 1Q (E PRINT) S)
(CALL 0Q (E TERPRI) S)
(HRRZ@ 1Q (SPECIAL DPROCS) S)
(CALL 17Q (E PP) S)
TAG21 (HRRZ@ 5Q (SPECIAL APROCS) S)
(JUMPE 5Q TAG26)
(MOVE 1Q 0Q P)
(JUMPE 1Q TAG30)
(MOVEI 1Q (QUOTE ASSERT:) S)
(JRST 0Q TAG27)
TAG30 (MOVEI 1Q (QUOTE ==ASSERT-PROCS==) S)
TAG27 (CALL 1Q (E PRINT) S)
(CALL 0Q (E TERPRI) S)
(HRRZ@ 1Q (SPECIAL APROCS) S)
(CALL 17Q (E PP) S)
TAG26 (HRRZ@ 5Q (SPECIAL EPROCS) S)
(JUMPE 5Q TAG33)
(MOVE 1Q 0Q P)
(JUMPE 1Q TAG35)
(MOVEI 1Q (QUOTE ERASE:) S)
(JRST 0Q TAG34)
TAG35 (MOVEI 1Q (QUOTE ==ERASE-PROCS==) S)
TAG34 (CALL 1Q (E PRINT) S)
(CALL 0Q (E TERPRI) S)
(HRRZ@ 1Q (SPECIAL EPROCS) S)
(CALL 17Q (E PP) S)
TAG33
TAG16 (MOVE 5Q 0Q P)
(JUMPE 5Q TAG40)
(CALL 0Q (E TERPRI) S)
(MOVEI 2Q (QUOTE NIL))
(MOVEI 1Q (QUOTE NIL))
(CALL 2Q (E PRINA) S)
(CALL 0Q (E TERPRI) S)
TAG40 (MOVEI 1Q (QUOTE NIL))
(SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP SUCCEED FSUBR)
(CALL 1Q (E ZSETV) S)
(CLEARM 5Q (SPECIAL THROW) S)
(MOVEI 5Q (QUOTE SUCCEED) S)
(MOVEM 5Q (SPECIAL CATCH) S)
(MOVEI 1Q (QUOTE THROW) S)
(JCALL 1Q (E ERR) S)
NIL
(LAP SUCCEEDP SUBR)
(PUSH P 1Q)
(CAME 1Q (SPECIAL FAIL) S)
(JRST 0Q TAG1)
(TDZA 1Q 1Q)
TAG1 (MOVEI 1Q (QUOTE T) S)
(SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP SUCCEED! FSUBR)
(CALL 1Q (E ZSETV) S)
(MOVE 5Q (SPECIAL ZSAVEP) S)
(MOVEM 5Q (SPECIAL ZSAVE) S)
(CLEARM 5Q (SPECIAL THROW) S)
(MOVEI 5Q (QUOTE SUCCEED) S)
(MOVEM 5Q (SPECIAL CATCH) S)
(MOVEI 1Q (QUOTE THROW) S)
(JCALL 1Q (E ERR) S)
NIL
(LAP SUCCEED? FSUBR)
(CALL 1Q (E ZSETV) S)
(MOVE 1Q (SPECIAL ZSUCCEED?) S)
(JUMPE 1Q TAG2)
(CLEARM 5Q (SPECIAL ZRESETV) S)
(CLEARM 5Q (SPECIAL THROW) S)
(MOVEI 5Q (QUOTE SUCCEED?) S)
(MOVEM 5Q (SPECIAL CATCH) S)
(MOVEI 1Q (QUOTE THROW) S)
(CALL 1Q (E ERR) S)
(JRST 0Q TAG1)
TAG2 (CLEARM 5Q (SPECIAL THROW) S)
(MOVEI 5Q (QUOTE SUCCEED) S)
(MOVEM 5Q (SPECIAL CATCH) S)
(MOVEI 1Q (QUOTE THROW) S)
(CALL 1Q (E ERR) S)
TAG1 (POPJ P)
NIL
(LAP THRESH: FSUBR)
(HRRZ@ 4Q 1Q)
(MOVEI 3Q (QUOTE CDDDR) S)
(MOVEI 2Q (QUOTE THRESH:) S)
(HLRZ@ 1Q 1Q)
(JCALL 4Q (E ZPROCN) S)
NIL
(LAP TRY FSUBR)
(CLEARM 5Q (SPECIAL ZRESETV) S)
(PUSH P 1Q)
(CALL 1Q (E CADR) S)
(CALL 1Q (E ZINSTPD) S)
(PUSH P 1Q)
(HLRZ@ 1Q -1Q P)
(CALL 1Q (E ZINST) S)
(MOVEI 2Q (QUOTE NIL))
(CALL 2Q (E XCONS) S)
(PUSH P 1Q)
(HRRZ@ 1Q -2Q P)
(HRRZ@ 1Q 1Q)
(CALL 1Q (E ZRANGES) S)
(CALL 1Q (E ZRANGER) S)
(MOVE 3Q 1Q)
(POP P 2Q)
(POP P 1Q)
(SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 3Q (E ZDEDUCE) S)
NIL
(LAP VAL LSUBR)
(JSP 3Q *LCALL)
(PUSH P 1Q)
(CALL 1Q (E ZEROP) S)
(JUMPE 1Q TAG2)
(MOVE 1Q (SPECIAL ZVALD) S)
(JRST 0Q TAG1)
TAG2 (MOVE 1Q -2Q P)
(HRRZ 1Q 1Q 1Q)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 1Q (E ZVALV) S)
NIL
(LAP ZVAL LSUBR)
(JSP 3Q *LCALL)
(PUSH P 1Q)
(CALL 1Q (E ZEROP) S)
(JUMPE 1Q TAG2)
(MOVE 1Q (SPECIAL ZVALD) S)
(JRST 0Q TAG1)
TAG2 (MOVE 1Q -2Q P)
(HRRZ 1Q 1Q 1Q)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 1Q (E ZVALZ) S)
NIL
(LAP ZVAL: FSUBR)
(HRRZ@ 4Q 1Q)
(MOVEI 3Q (QUOTE CDDDR) S)
(MOVEI 2Q (QUOTE ZVAL:) S)
(HLRZ@ 1Q 1Q)
(JCALL 4Q (E ZPROCN) S)
NIL
(LAP ZVALV SUBR)
(PUSH P 1Q)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG2)
(MOVE 1Q 0Q P)
(JRST 0Q TAG1)
TAG2 (HRRZ@ 1Q 0Q P)
(CALL 1Q (E NUMBERP) S)
(JUMPE 1Q TAG3)
(HLRZ@ 1Q 0Q P)
(JRST 0Q TAG1)
TAG3 (MOVE 1Q 0Q P)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP ZVALZ SUBR)
(PUSH P 1Q)
(CAME 1Q (SPECIAL FAIL) S)
(JRST 0Q TAG2)
(MOVE 1Q (SPECIAL ZLOW) S)
(JRST 0Q TAG1)
TAG2 (CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG3)
(MOVE 1Q (SPECIAL ZHIGH) S)
(JRST 0Q TAG1)
TAG3 (HRRZ@ 1Q 0Q P)
(MOVEM 1Q 0Q P)
(CALL 1Q (E NUMBERP) S)
(JUMPE 1Q TAG4)
(MOVE 1Q 0Q P)
(JRST 0Q TAG1)
TAG4 (MOVE 1Q (SPECIAL ZHIGH) S)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(DEFV Z*NIL* Z*NIL*)
(DEFV DONE DONE)
(LAP *! FSUBR)
(HLRZ@ 5Q 1Q)
(PUSH P 5Q)
(MOVE 1Q 5Q)
(CALL 1Q (E ATOM) S)
(JUMPN 1Q TAG2)
(MOVE 1Q 5Q)
(CALL 1Q (E ZINST) S)
(JRST 0Q TAG1)
TAG2 (MOVE 1Q 5Q)
(CALL 1Q (E ZLOOK!) S)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(DEFPROP *! T ZPATF)
(DEFPROP *! Z*! ZPATEI)
(LAP Z*! SUBR)
(PUSH P 1Q)
(CALL 1Q (E ATOM) S)
(JUMPN 1Q TAG2)
(MOVE 1Q 0Q P)
(JRST 0Q TAG1)
TAG2 (MOVE 1Q (SPECIAL ZINSTF) S)
(JUMPN 1Q TAG3)
(MOVE 1Q 0Q P)
(CALL 1Q (E ZLOOK!) S)
(JRST 0Q TAG1)
TAG3 (MOVE 1Q 0Q P)
(CALL 1Q (E ZLOOK?) S)
(JUMPE 1Q TAG4)
(MOVE 1Q (SPECIAL ZLOOKV) S)
(JRST 0Q TAG1)
TAG4 (MOVE 1Q 0Q P)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE *?) S)
(CALL 2Q (E XCONS) S)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP *& SUBR)
(POPJ P)
NIL
(DEFPROP *& T ZPATF)
(DEFPROP *& Z*& ZPATEI)
(LAP Z*& SUBR)
(JCALL 1Q (E *EVAL) S)
NIL
(DEFPROP QUOTE T ZPATF)
(DEFPROP *!! T ZPATF)
(DEFPROP *!! Z*!! ZPATES)
(LAP Z*!! SUBR)
(PUSH P 1Q)
(CALL 1Q (E ATOM) S)
(JUMPN 1Q TAG2)
(MOVE 1Q 0Q P)
(JRST 0Q TAG1)
TAG2 (MOVE 1Q (SPECIAL ZINSTF) S)
(JUMPN 1Q TAG3)
(MOVE 1Q 0Q P)
(CALL 1Q (E ZLOOK!) S)
(CALL 1Q (E CONSP) S)
(JRST 0Q TAG1)
TAG3 (MOVE 1Q 0Q P)
(CALL 1Q (E ZLOOK?) S)
(JUMPE 1Q TAG4)
(MOVE 1Q (SPECIAL ZLOOKV) S)
(CALL 1Q (E CONSP) S)
(JRST 0Q TAG1)
TAG4 (MOVE 1Q 0Q P)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE *??) S)
(CALL 2Q (E XCONS) S)
(CALL 1Q (E NCONS) S)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(DEFPROP *&& T ZPATF)
(DEFPROP *&& Z*&& ZPATES)
(LAP Z*&& SUBR)
(CALL 1Q (E *EVAL) S)
(JCALL 1Q (E CONSP) S)
NIL
(DEFPROP *? T ZPATF)
(DEFPROP *? Z*? ZPATMI)
(LAP Z*? SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(JUMPE 1Q TAG2)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E ZBIND) S)
TAG2 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(DEFPROP *AND T ZPATF)
(DEFPROP *AND Z*AND ZPATMI)
(LAP Z*AND SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
TAG1 (MOVE 5Q -1Q P)
(JUMPE 5Q TAG6)
(HLRZ@ 1Q 5Q)
(CALL 1Q (E ZINSTP) S)
(MOVE 2Q 0Q P)
(CALL 2Q (E ZMATCH1) S)
(HRRZ@ 5Q -1Q P)
(MOVEM 5Q -1Q P)
(JRST 0Q TAG1)
TAG6 (MOVEI 1Q (QUOTE NIL))
(SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(DEFPROP *ANY T ZPATF)
(DEFPROP *ANY Z*ANY ZPATMI)
(LAP Z*ANY SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(CALL 1Q (E CADR) S)
(CALL 1Q (E ZINST) S)
(MOVE 2Q 1Q)
(MOVE 1Q 0Q P)
(CALL 2Q (E MEMBER) S)
(JUMPE 1Q TAG2)
(HLRZ@ 1Q -1Q P)
(CALL 1Q (E ZINSTP) S)
(MOVE 2Q 0Q P)
(CALL 2Q (E ZMATCH1) S)
(JRST 0Q TAG1)
TAG2 (CLEARM 5Q (SPECIAL THROW) S)
(MOVEI 5Q (QUOTE MATCH) S)
(MOVEM 5Q (SPECIAL CATCH) S)
(MOVEI 1Q (QUOTE THROW) S)
(CALL 1Q (E ERR) S)
TAG1 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(DEFPROP *CON T ZPATF)
(DEFPROP *CON Z*CON ZPATMI)
(LAP Z*CON SUBR)
(PUSH P 1Q)
(CALL 1Q (E CADR) S)
(PUSH P 2Q)
(CALL 1Q (E ZINST) S)
(MOVEM 1Q (SPECIAL ZTEMPV) S)
(MOVE 5Q 0Q P)
(MOVEM 5Q (SPECIAL ZTEMP2) S)
(PUSH P (C 0Q 0Q TAG3 0Q))
(MOVEI 1Q (QUOTE T) S)
(JSP 13Q *ERRSET1)
(MOVE 1Q 5Q)
(CALL 1Q (E Z*CON1) S)
(JRST 0Q *ERRSET2)
TAG3 (CALL 1Q (E %CATCH) S)
(MOVE 1Q (SPECIAL THROW) S)
(JUMPE 1Q TAG2)
(HLRZ@ 1Q -1Q P)
(CALL 1Q (E ZINSTP) S)
(MOVE 2Q 0Q P)
(CALL 2Q (E ZMATCH1) S)
(JRST 0Q TAG1)
TAG2 (CLEARM 5Q (SPECIAL THROW) S)
(MOVEI 5Q (QUOTE MATCH) S)
(MOVEM 5Q (SPECIAL CATCH) S)
(MOVEI 1Q (QUOTE THROW) S)
(CALL 1Q (E ERR) S)
TAG1 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(LAP Z*CON1 SUBR)
(PUSH P 1Q)
(MOVE 2Q (SPECIAL ZTEMPV) S)
(CALL 2Q (E EQUAL) S)
(JUMPE 1Q TAG2)
(MOVEI 5Q (QUOTE T) S)
(MOVEM 5Q (SPECIAL THROW) S)
(CLEARM 5Q (SPECIAL CATCH) S)
(MOVEI 1Q (QUOTE THROW) S)
(CALL 1Q (E ERR) S)
(JRST 0Q TAG1)
TAG2 (MOVE 1Q 0Q P)
(CALL 1Q (E ATOM) S)
(JUMPN 1Q TAG3)
(MOVE 2Q 0Q P)
(MOVEI 1Q (QUOTE Z*CON1) S)
(PUSHJ P *MAPC)
(JRST 0Q TAG1)
TAG3 (MOVEI 1Q (QUOTE NIL))
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(DEFPROP *NOT T ZPATF)
(DEFPROP *NOT Z*NOT ZPATMI)
(LAP Z*NOT SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(CALL 1Q (E CADR) S)
(CALL 1Q (E ZINSTP) S)
(MOVE 2Q 0Q P)
(CALL 2Q (E ZMATCH) S)
(JUMPE 1Q TAG2)
(CLEARM 5Q (SPECIAL THROW) S)
(MOVEI 5Q (QUOTE MATCH) S)
(MOVEM 5Q (SPECIAL CATCH) S)
(MOVEI 1Q (QUOTE THROW) S)
(CALL 1Q (E ERR) S)
(JRST 0Q TAG1)
TAG2 (HLRZ@ 1Q -1Q P)
(CALL 1Q (E ZINSTP) S)
(MOVE 2Q 0Q P)
(CALL 2Q (E ZMATCH1) S)
TAG1 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(DEFPROP *OR T ZPATF)
(DEFPROP *OR Z*OR ZPATMI)
(LAP Z*OR SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
TAG1 (MOVE 5Q -1Q P)
(JUMPN 5Q TAG6)
(CLEARM 5Q (SPECIAL THROW) S)
(MOVEI 5Q (QUOTE MATCH) S)
(MOVEM 5Q (SPECIAL CATCH) S)
(MOVEI 1Q (QUOTE THROW) S)
(CALL 1Q (E ERR) S)
(JRST 0Q TAG5)
TAG6 (HLRZ@ 1Q 5Q)
(CALL 1Q (E ZINSTP) S)
(MOVE 2Q 0Q P)
(CALL 2Q (E ZMATCH) S)
(JUMPN 1Q TAG7)
(HRRZ@ 5Q -1Q P)
(MOVEM 5Q -1Q P)
(JRST 0Q TAG1)
TAG7
TAG5 (MOVEI 1Q (QUOTE NIL))
(SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(DEFPROP *R T ZPATF)
(DEFPROP *R Z*R ZPATMI)
(LAP Z*R SUBR)
(PUSH P 1Q)
(HLRZ@ 1Q 1Q)
(PUSH P 2Q)
(CALL 1Q (E ZINSTP) S)
(POP P 2Q)
(CALL 2Q (E ZMATCH1) S)
(HRRZ@ 1Q 0Q P)
(JUMPE 1Q TAG2)
(HRRZ@ 1Q 0Q P)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E *EVAL) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG5)
(CAME 1Q (SPECIAL FAIL) S)
(JRST 0Q TAG2)
TAG5 (CLEARM 5Q (SPECIAL THROW) S)
(MOVEI 5Q (QUOTE MATCH) S)
(MOVEM 5Q (SPECIAL CATCH) S)
(MOVEI 1Q (QUOTE THROW) S)
(CALL 1Q (E ERR) S)
(JRST 0Q TAG1)
TAG2 (MOVEI 1Q (QUOTE NIL))
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(DEFPROP *LEN T ZPATF)
(DEFPROP *LEN Z*LEN ZPATMS)
(LAP Z*LEN SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(CALL 1Q (E CADR) S)
(CALL 1Q (E *EVAL) S)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(CALL 1Q (E ZEROP) S)
(JUMPN 1Q TAG2)
TAG1 (MOVE 5Q -2Q P)
(JUMPE 5Q TAG11)
(HLRZ@ 1Q 5Q)
(CALL 1Q (E ZINST?) S)
(JUMPN 1Q TAG10)
TAG11 (CLEARM 5Q (SPECIAL THROW) S)
(MOVEI 5Q (QUOTE MATCH) S)
(MOVEM 5Q (SPECIAL CATCH) S)
(MOVEI 1Q (QUOTE THROW) S)
(CALL 1Q (E ERR) S)
TAG10 (HLRZ@ 1Q -2Q P)
(CALL 1Q (E NCONS) S)
(MOVE 2Q 1Q)
(MOVE 1Q 0Q P)
(CALL 2Q (E *NCONC) S)
(HRRZ@ 5Q -2Q P)
(MOVEM 1Q 0Q P)
(MOVEM 5Q -2Q P)
(MOVE 1Q -1Q P)
(CALL 1Q (E SUB1) S)
(MOVEM 1Q -1Q P)
(CALL 1Q (E ZEROP) S)
(JUMPE 1Q TAG1)
(HLRZ@ 1Q -4Q P)
(CALL 1Q (E ZINSTP) S)
(MOVE 2Q 0Q P)
(CALL 2Q (E ZMATCH1) S)
TAG2 (MOVE 2Q -2Q P)
(MOVE 1Q -3Q P)
(CALL 2Q (E ZMATCH1) S)
(MOVEI 1Q (QUOTE NIL))
(SUB P (C 5Q 0Q 5Q 0Q))
(POPJ P)
NIL
(DEFPROP *OPT T ZPATF)
(DEFPROP *OPT Z*OPT ZPATMS)
(LAP Z*OPT SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(JUMPE 3Q TAG2)
(HLRZ@ 1Q 3Q)
(CALL 1Q (E ZINST?) S)
(JUMPE 1Q TAG2)
(HLRZ@ 1Q -2Q P)
(CALL 1Q (E ZINSTP) S)
(HLRZ@ 2Q 0Q P)
(CALL 2Q (E ZMATCH) S)
(JUMPE 1Q TAG2)
(HRRZ@ 5Q 0Q P)
(MOVEM 5Q 0Q P)
(JRST 0Q TAG1)
TAG2 (HRRZ@ 5Q -2Q P)
(JUMPE 5Q TAG7)
(HLRZ@ 1Q 5Q)
(CALL 1Q (E *EVAL) S)
TAG7
TAG1 (POP P 2Q)
(POP P 1Q)
(SUB P (C 1Q 0Q 1Q 0Q))
(JCALL 2Q (E ZMATCH1) S)
NIL
(DEFPROP *REP T ZPATF)
(DEFPROP *REP Z*REP ZPATMS)
(LAP Z*REP SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E ZINSTP) S)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(HRRZ@ 5Q -4Q P)
(JUMPE 5Q TAG10)
(HLRZ@ 1Q 5Q)
(CALL 1Q (E *EVAL) S)
(MOVEM 1Q 0Q P)
(JRST 0Q TAG2)
TAG10
TAG1 (MOVE 5Q -2Q P)
(JUMPE 5Q TAG12)
(HLRZ@ 1Q 5Q)
(CALL 1Q (E ZINST?) S)
(JUMPE 1Q TAG12)
(HLRZ@ 2Q -2Q P)
(MOVE 1Q -1Q P)
(CALL 2Q (E ZMATCH) S)
(JUMPE 1Q TAG12)
(HRRZ@ 5Q -2Q P)
(MOVEM 5Q -2Q P)
(JRST 0Q TAG1)
TAG12 (JRST 0Q TAG3)
TAG2 (MOVE 1Q 0Q P)
(CALL 1Q (E ZEROP) S)
(JUMPN 1Q TAG3)
(MOVE 5Q -2Q P)
(JUMPE 5Q TAG21)
(HLRZ@ 1Q 5Q)
(CALL 1Q (E ZINST?) S)
(JUMPN 1Q TAG20)
TAG21 (CLEARM 5Q (SPECIAL THROW) S)
(MOVEI 5Q (QUOTE MATCH) S)
(MOVEM 5Q (SPECIAL CATCH) S)
(MOVEI 1Q (QUOTE THROW) S)
(CALL 1Q (E ERR) S)
TAG20 (HLRZ@ 2Q -2Q P)
(MOVE 1Q -1Q P)
(CALL 2Q (E ZMATCH1) S)
(HRRZ@ 5Q -2Q P)
(MOVE 1Q 0Q P)
(MOVEM 5Q -2Q P)
(CALL 1Q (E SUB1) S)
(MOVEM 1Q 0Q P)
(JRST 0Q TAG2)
TAG3 (MOVE 2Q -2Q P)
(MOVE 1Q -3Q P)
(CALL 2Q (E ZMATCH1) S)
(MOVEI 1Q (QUOTE NIL))
(SUB P (C 5Q 0Q 5Q 0Q))
(POPJ P)
NIL
(DEFPROP *?? T ZPATF)
(DEFPROP *?? Z*?? ZPATMS)
(LAP Z*?? SUBR)
(MOVEI 4Q (QUOTE NIL))
(JCALL 4Q (E Z*??1) S)
NIL
(DEFPROP *??: T ZPATF)
(DEFPROP *??: Z*??: ZPATMS)
(LAP Z*??: SUBR)
(MOVEI 4Q (QUOTE T) S)
(JCALL 4Q (E Z*??1) S)
NIL
(LAP Z*??1 SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(PUSH P 4Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(JUMPE 1Q TAG6)
(HLRZ@ 5Q 1Q)
(MOVEM 5Q 0Q P)
TAG6 (MOVE 5Q -4Q P)
(JUMPN 5Q TAG10)
(MOVE 1Q -3Q P)
(CALL 1Q (E ZINST?) S)
(JUMPN 1Q TAG12)
(CLEARM 5Q (SPECIAL THROW) S)
(MOVEI 5Q (QUOTE MATCH) S)
(MOVEM 5Q (SPECIAL CATCH) S)
(MOVEI 1Q (QUOTE THROW) S)
(CALL 1Q (E ERR) S)
(JRST 0Q TAG11)
TAG12 (MOVE 5Q -2Q P)
(JUMPE 5Q TAG13)
(MOVE 1Q -3Q P)
(CALL 1Q (E LENGTH) S)
(MOVE 2Q 1Q)
(MOVE 1Q 0Q P)
(CALL 2Q (E ZBIND) S)
(JRST 0Q TAG2)
TAG13 (MOVE 5Q 0Q P)
(JUMPE 5Q TAG14)
(MOVE 2Q -3Q P)
(MOVE 1Q 5Q)
(CALL 2Q (E ZBIND) S)
(JRST 0Q TAG2)
TAG14 (MOVEI 1Q (QUOTE T) S)
(JRST 0Q TAG2)
TAG11
TAG10 (MOVE 5Q -2Q P)
(JUMPE 5Q TAG17)
(MOVEI 5Q (QUOTE 0Q))
(MOVEM 5Q -1Q P)
TAG17
TAG1 (MOVE 5Q 0Q P)
(JUMPE 5Q TAG21)
(MOVE 2Q -1Q P)
(MOVE 1Q 5Q)
(CALL 2Q (E ZBIND) S)
TAG21 (MOVE 2Q -3Q P)
(MOVE 1Q -4Q P)
(CALL 2Q (E ZMATCH) S)
(JUMPE 1Q TAG23)
(MOVEI 1Q (QUOTE T) S)
(JRST 0Q TAG2)
TAG23 (MOVE 5Q -3Q P)
(JUMPE 5Q TAG25)
(HLRZ@ 1Q 5Q)
(CALL 1Q (E ZINST?) S)
(JUMPN 1Q TAG24)
TAG25 (CLEARM 5Q (SPECIAL THROW) S)
(MOVEI 5Q (QUOTE MATCH) S)
(MOVEM 5Q (SPECIAL CATCH) S)
(MOVEI 1Q (QUOTE THROW) S)
(CALL 1Q (E ERR) S)
(JRST 0Q TAG22)
TAG24 (MOVE 5Q -2Q P)
(JUMPE 5Q TAG26)
(MOVE 1Q -1Q P)
(CALL 1Q (E ADD1) S)
(MOVEM 1Q -1Q P)
(JRST 0Q TAG22)
TAG26 (MOVE 5Q 0Q P)
(JUMPE 5Q TAG27)
(HLRZ@ 1Q -3Q P)
(CALL 1Q (E NCONS) S)
(MOVE 2Q 1Q)
(MOVE 1Q -1Q P)
(CALL 2Q (E *NCONC) S)
(MOVEM 1Q -1Q P)
TAG27
TAG22 (HRRZ@ 5Q -3Q P)
(MOVEM 5Q -3Q P)
(JRST 0Q TAG1)
TAG2 (SUB P (C 6Q 0Q 6Q 0Q))
(POPJ P)
NIL
(LAP ZREAD! SUBR)
(CALL 0Q (E PEEKC) S)
(CAIE 1Q (QUOTE 41Q))
(JRST 0Q TAG2)
(CALL 0Q (E TYI) S)
(CALL 0Q (E READ) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE *!!) S)
(CALL 2Q (E XCONS) S)
(JRST 0Q TAG1)
TAG2 (CALL 0Q (E READ) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE *!) S)
(CALL 2Q (E XCONS) S)
TAG1 (POPJ P)
NIL
(LAP ZREAD& SUBR)
(CALL 0Q (E PEEKC) S)
(CAIE 1Q (QUOTE 46Q))
(JRST 0Q TAG2)
(CALL 0Q (E TYI) S)
(CALL 0Q (E READ) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE *&&) S)
(CALL 2Q (E XCONS) S)
(JRST 0Q TAG1)
TAG2 (CALL 0Q (E READ) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE *&) S)
(CALL 2Q (E XCONS) S)
TAG1 (POPJ P)
NIL
(LAP ZREAD? SUBR)
(CALL 0Q (E PEEKC) S)
(PUSH P 1Q)
(CAIE 1Q (QUOTE 100Q))
(JRST 0Q TAG5)
(CALL 0Q (E TYI) S)
(CALL 0Q (E READ) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE *?Q) S)
(CALL 2Q (E XCONS) S)
(JRST 0Q TAG4)
TAG5 (CALL 1Q (E DELIM) S)
(JUMPE 1Q TAG6)
(MOVEI 1Q (QUOTE (*?)) S)
(JRST 0Q TAG4)
TAG6 (MOVE 5Q 0Q P)
(CAIN 5Q (QUOTE 77Q))
(JRST 0Q TAG7)
(CALL 0Q (E READ) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE *?) S)
(CALL 2Q (E XCONS) S)
(JRST 0Q TAG4)
TAG7 (CALL 0Q (E TYI) S)
(CALL 0Q (E PEEKC) S)
(MOVEM 1Q 0Q P)
(CALL 1Q (E DELIM) S)
(JUMPE 1Q TAG10)
(MOVEI 1Q (QUOTE (*??)) S)
(JRST 0Q TAG4)
TAG10 (MOVE 5Q 0Q P)
(CAIE 5Q (QUOTE 72Q))
(JRST 0Q TAG11)
(CALL 0Q (E TYI) S)
(CALL 0Q (E READ) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE *??:) S)
(CALL 2Q (E XCONS) S)
(JRST 0Q TAG4)
TAG11 (CALL 0Q (E READ) S)
(CALL 1Q (E NCONS) S)
(MOVEI 2Q (QUOTE *??) S)
(CALL 2Q (E XCONS) S)
TAG4 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(SETQ MODCHR! (MODCHR 41Q NIL))
(SETQ MODCHR& (MODCHR 46Q NIL))
(SETQ MODCHR? (MODCHR 77Q NIL))
(LAP FUZZYMACS SUBR)
(PUSH P 1Q)
(CAME 1Q (SPECIAL FUZZYMACS) S)
(JRST 0Q TAG2)
(MOVE 1Q (SPECIAL FUZZYMACS) S)
(JRST 0Q TAG1)
TAG2 (MOVE 2Q (SPECIAL MODCHR!) S)
(MOVEI 1Q (QUOTE 41Q))
(CALL 2Q (E MODCHR) S)
(MOVEM 1Q (SPECIAL MODCHR!) S)
(MOVE 2Q (SPECIAL MODCHR&) S)
(MOVEI 1Q (QUOTE 46Q))
(CALL 2Q (E MODCHR) S)
(MOVEM 1Q (SPECIAL MODCHR&) S)
(MOVE 2Q (SPECIAL MODCHR?) S)
(MOVEI 1Q (QUOTE 77Q))
(CALL 2Q (E MODCHR) S)
(MOVEM 1Q (SPECIAL MODCHR?) S)
(MOVE 1Q 0Q P)
(MOVEM 1Q (SPECIAL FUZZYMACS) S)
(JUMPE 1Q TAG4)
(TDZA 1Q 1Q)
TAG4 (MOVEI 1Q (QUOTE T) S)
TAG1 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(DEFV FUZZYMACS NIL)
(LAP ZTRACE FSUBR)
(PUSH P 1Q)
(PUSH P 1Q)
(MOVEI 1Q (QUOTE NIL))
(CALL 1Q (E NCONS) S)
(PUSH P 1Q)
TAG1 (MOVE 5Q -2Q P)
(JUMPE 5Q TAG6)
(HLRZ@ 1Q 5Q)
(HRRZ@ 5Q 5Q)
(PUSH P 0Q P)
(MOVEM 1Q -3Q P)
(PUSH P 5Q)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG10)
(MOVEI 2Q (QUOTE (T NIL)) S)
(MOVE 1Q -4Q P)
(CALL 2Q (E CONS) S)
(MOVEM 1Q -4Q P)
(JRST 0Q TAG7)
TAG10 (HRRZ@ 1Q -4Q P)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG11)
(MOVEI 2Q (QUOTE (T NIL)) S)
(MOVE 1Q -4Q P)
(CALL 2Q (E *NCONC) S)
(JRST 0Q TAG7)
TAG11 (HRRZ@ 1Q -4Q P)
(HRRZ@ 1Q 1Q)
(CALL 1Q (E ATOM) S)
(JUMPE 1Q TAG12)
(MOVEI 2Q (QUOTE (NIL)) S)
(MOVE 1Q -4Q P)
(CALL 2Q (E *NCONC) S)
TAG12
TAG7 (MOVEI 2Q (QUOTE (ADD REMOVE FETCH NET PROCS)) S)
(HLRZ@ 1Q -4Q P)
(CALL 2Q (E MEMB) S)
(JUMPN 1Q TAG14)
(MOVEI 2Q (QUOTE PROC) S)
(HLRZ@ 1Q -4Q P)
(CALL 2Q (E GET) S)
(JUMPN 1Q TAG16)
(PUSH P (C 0Q 0Q TAG17 0Q))
(HLRZ@ 5Q -5Q P)
(PUSH P 5Q)
(MOVEI D (QUOTE " IS NOT A PROC") S)
(PUSH P D)
(MOVNI 6Q 2Q)
(JCALL 16Q (E ZERROR) S)
TAG17
TAG16
TAG14 (MOVE 2Q (SPECIAL ZTRACEDFNS) S)
(HLRZ@ 1Q -4Q P)
(CALL 2Q (E ASSOC) S)
(MOVEM 1Q -3Q P)
(JUMPE 1Q TAG21)
(MOVE 2Q (SPECIAL ZTRACEDFNS) S)
(CALL 2Q (E DREMOVE) S)
(MOVEM 1Q (SPECIAL ZTRACEDFNS) S)
TAG21 (MOVE 2Q (SPECIAL ZTRACEDFNS) S)
(MOVE 1Q -4Q P)
(CALL 2Q (E CONS) S)
(MOVEM 1Q (SPECIAL ZTRACEDFNS) S)
(HLRZ@ 2Q -4Q P)
(EXCH 1Q -1Q P)
(CALL 2Q (E TCONC) S)
(POP P -4Q P)
(SUB P (C 1Q 0Q 1Q 0Q))
(JRST 0Q TAG1)
TAG6 (HLRZ@ 1Q 0Q P)
(SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP ZUNTRACE FSUBR)
(PUSH P 1Q)
(JUMPN 1Q TAG3)
(PUSH P (C 0Q 0Q TAG4 0Q))
(MOVEI D (QUOTE CAR) S)
(PUSH P D)
(PUSH P (SPECIAL ZTRACEDFNS) S)
(MOVNI 6Q 2Q)
(JCALL 16Q (E MAPCAR) S)
TAG4 (CLEARM 5Q (SPECIAL ZTRACEDFNS) S)
(JRST 0Q TAG2)
TAG3 (PUSH P 1Q)
(MOVEI 1Q (QUOTE NIL))
(CALL 1Q (E NCONS) S)
(PUSH P 1Q)
TAG1 (MOVE 5Q -1Q P)
(JUMPE 5Q TAG12)
(HLRZ@ 1Q 5Q)
(HRRZ@ 5Q 5Q)
(PUSH P 0Q P)
(MOVEM 1Q -2Q P)
(PUSH P 5Q)
(MOVE 2Q (SPECIAL ZTRACEDFNS) S)
(CALL 2Q (E ASSOC) S)
(MOVEM 1Q -4Q P)
(JUMPE 1Q TAG14)
(MOVE 2Q (SPECIAL ZTRACEDFNS) S)
(CALL 2Q (E DREMOVE) S)
(MOVEM 1Q (SPECIAL ZTRACEDFNS) S)
(MOVE 2Q -3Q P)
(JRST 0Q TAG13)
TAG14 (MOVEI 2Q (QUOTE (IS NOT ZTRACED)) S)
(MOVE 1Q -3Q P)
(CALL 2Q (E CONS) S)
(MOVE 2Q 1Q)
TAG13 (MOVE 1Q -1Q P)
(CALL 2Q (E TCONC) S)
(POP P -3Q P)
(SUB P (C 1Q 0Q 1Q 0Q))
(JRST 0Q TAG1)
TAG12 (HLRZ@ 1Q 0Q P)
(SUB P (C 2Q 0Q 2Q 0Q))
TAG2 (SUB P (C 1Q 0Q 1Q 0Q))
(POPJ P)
NIL
(LAP ZBREAK1 SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(PUSH P 4Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(MOVE 2Q (SPECIAL ZTRACEDFNS) S)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E ASSOC) S)
(MOVE 5Q 1Q)
(JUMPN 5Q TAG5)
(MOVE 2Q (SPECIAL ZTRACEDFNS) S)
(HRRZ@ 1Q -7Q P)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E ASSOC) S)
(EXCH 5Q 1Q)
TAG5 (MOVEM 5Q 0Q P)
(JUMPN 5Q TAG4)
(JRST 0Q TAG2)
TAG4 (MOVE 5Q -5Q P)
(MOVEM 5Q (SPECIAL *ARG) S)
(MOVE 5Q (SPECIAL ZVALUE) S)
(MOVE 4Q (SPECIAL ZRESETV) S)
(MOVEM 4Q -3Q P)
(MOVEM 5Q -2Q P)
(HRRZ@ 1Q 0Q P)
(HLRZ@ 1Q 1Q)
(CALL 1Q (E *EVAL) S)
(MOVEM 1Q -1Q P)
(JUMPE 1Q TAG7)
(MOVE 1Q -4Q P)
(CALL 1Q (E MINUSP) S)
(JUMPE 1Q TAG11)
(MOVE 2Q -4Q P)
(MOVE 1Q (SPECIAL #%INDENT) S)
(CALL 2Q (E *PLUS) S)
(MOVEM 1Q (SPECIAL #%INDENT) S)
TAG11 (MOVE 1Q (SPECIAL #%INDENT) S)
(CALL 1Q (E BKPOS) S)
(MOVE 5Q -6Q P)
(JUMPE 5Q TAG13)
(MOVE 1Q 5Q)
(CALL 1Q (E PRINC) S)
TAG13 (HLRZ@ 1Q -7Q P)
(CALL 1Q (E PRINC) S)
(MOVEI 1Q (QUOTE :/ ) S)
(CALL 1Q (E PRINC) S)
(MOVE 1Q -5Q P)
(CALL 1Q (E ZCAR) S)
(PUSH P 1Q)
(CALL 0Q (E CHRPOS) S)
(MOVE 2Q 1Q)
(POP P 1Q)
(CALL 2Q (E SPRINT) S)
(MOVEI 2Q (QUOTE 0Q))
(MOVE 1Q -4Q P)
(CALL 2Q (E *GREAT) S)
(JUMPE 1Q TAG15)
(MOVE 2Q -4Q P)
(MOVE 1Q (SPECIAL #%INDENT) S)
(CALL 2Q (E *PLUS) S)
(MOVEM 1Q (SPECIAL #%INDENT) S)
TAG15
TAG7 (HRRZ@ 5Q 0Q P)
(HRRZ@ 5Q 5Q)
(HLRZ@ 5Q 5Q)
(CAIE 5Q (QUOTE DITTO) S)
(JRST 0Q TAG22)
(MOVE 5Q -1Q P)
(JUMPN 5Q TAG20)
TAG22 (HRRZ@ 1Q 0Q P)
(CALL 1Q (E CADR) S)
(CALL 1Q (E *EVAL) S)
(JUMPE 1Q TAG17)
TAG20 (MOVEI 5Q (QUOTE NIL))
(MOVEI 4Q (QUOTE NIL))
(HLRZ@ 3Q -7Q P)
(MOVEI 2Q (QUOTE T) S)
(MOVEI 1Q (QUOTE NIL))
(CALL 5Q (E BREAK1) S)
TAG17 (MOVE 5Q -2Q P)
(MOVEM 5Q (SPECIAL ZVALUE) S)
(MOVE 5Q -3Q P)
(MOVEM 5Q (SPECIAL ZRESETV) S)
TAG2 (MOVEI 1Q (QUOTE NIL))
(SUB P (C 10Q 0Q 10Q 0Q))
(POPJ P)
NIL
(DEFP %ZEDITF EDITF FSUBR)
(LAP EDITF FSUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(JUMPN 1Q TAG5)
(CALL 0Q (E TERPRI) S)
(MOVEI 1Q (QUOTE "= ") S)
(CALL 1Q (E PRINC) S)
(MOVE 1Q (SPECIAL LASTWORD) S)
(CALL 1Q (E PRIN1) S)
(CALL 0Q (E TERPRI) S)
(MOVE 1Q (SPECIAL LASTWORD) S)
(CALL 1Q (E NCONS) S)
(MOVEM 1Q -1Q P)
TAG5 (MOVEI 2Q (QUOTE PROC) S)
(HLRZ@ 1Q -1Q P)
(CALL 2Q (E GET) S)
(MOVEM 1Q 0Q P)
(JUMPN 1Q TAG7)
(MOVE 2Q -1Q P)
(MOVEI 1Q (QUOTE %ZEDITF) S)
(CALL 2Q (E APPLY#) S)
(JRST 0Q TAG1)
TAG7 (HLRZ@ 3Q -1Q P)
(HRRZ@ 2Q -1Q P)
(CALL 3Q (E EDITE) S)
(HLRZ@ 5Q -1Q P)
(MOVEM 5Q (SPECIAL LASTWORD) S)
(MOVE 1Q 0Q P)
(CALL 1Q (E *EVAL) S)
(JRST 0Q TAG1)
TAG1 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(RPLACA (MEMB 'FEXPR PRETTYPROPS) '(FEXPR . ZPP-FEXPR))
(LAP ZPP-FEXPR SUBR)
(PUSH P 1Q)
(PUSH P 2Q)
(PUSH P 3Q)
(MOVEI 2Q (QUOTE PROC) S)
(CALL 2Q (E GET) S)
(MOVEM 1Q 0Q P)
(JUMPE 1Q TAG2)
(CALL 0Q (E OUTCH) S)
(JUMPE 1Q TAG4)
(MOVE 2Q (SPECIAL ZGENPROCS) S)
(HRRZ@ 1Q 0Q P)
(CALL 1Q (E CADR) S)
(CALL 2Q (E MEMB) S)
(JUMPE 1Q TAG6)
(HRRZ@ 2Q 0Q P)
(HRRZ@ 2Q 2Q)
(HRRZ@ 2Q 2Q)
(MOVEI 1Q (QUOTE PROC) S)
(CALL 2Q (E CONS) S)
(MOVEM 1Q 0Q P)
TAG6
TAG4 (MOVEI 2Q (QUOTE 1Q))
(MOVE 1Q 0Q P)
(CALL 2Q (E SPRINT) S)
(JRST 0Q TAG1)
TAG2 (MOVEI 1Q (QUOTE FEXPR) S)
(CALL 1Q (E NCONS) S)
(MOVE 2Q -1Q P)
(CALL 2Q (E XCONS) S)
(MOVE 2Q -2Q P)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE DEFPROP) S)
(CALL 2Q (E XCONS) S)
(MOVEI 2Q (QUOTE 1Q))
(CALL 2Q (E SPRINT) S)
TAG1 (SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP ZPP-PROC SUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE 1Q) 0Q))
(HRRZ@ 5Q 1Q)
(PUSH P 5Q)
TAG1 (MOVEI 2Q (QUOTE (NAME: GLOBAL: DEMON: ACCUM: THRESH: ZVAL:)) S)
(HLRZ@ 1Q 0Q P)
(CALL 2Q (E MEMB) S)
(JUMPE 1Q TAG6)
(MOVEI 2Q (QUOTE 2Q))
(MOVE 1Q -1Q P)
(CALL 2Q (E *PLUS) S)
(HRRZ@ 5Q 0Q P)
(HRRZ@ 5Q 5Q)
(MOVEM 1Q -1Q P)
(MOVEM 5Q 0Q P)
(JRST 0Q TAG1)
TAG6 (MOVEI 3Q (QUOTE LABELS) S)
(MOVE 2Q -1Q P)
(MOVE 1Q -2Q P)
(CALL 3Q (E PP-FORMAT) S)
(MOVEI 1Q (QUOTE NIL))
(SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP ZPP-FOR SUBR)
(PUSH P 1Q)
(HRRZ@ 5Q 1Q)
(HLRZ@ 5Q 5Q)
(PUSH P 5Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(MOVEI 2Q (QUOTE (DEDUCE: D: GOAL: G: FETCH: F:)) S)
(MOVE 1Q 5Q)
(CALL 2Q (E MEMB) S)
(JUMPE 1Q TAG5)
(HRRZ@ 5Q -2Q P)
(HRRZ@ 5Q 5Q)
(HLRZ@ 5Q 5Q)
(CAIE 5Q (QUOTE ZVAL:) S)
(JRST 0Q TAG7)
(MOVEI 5Q (QUOTE 4Q))
(JRST 0Q TAG6)
TAG7 (MOVEI 5Q (QUOTE 2Q))
TAG6 (MOVEM 5Q 0Q P)
(JRST 0Q TAG4)
TAG5 (CAIN 5Q (QUOTE TRY:) S)
(JRST 0Q TAG11)
(CAIE 5Q (QUOTE T:) S)
(JRST 0Q TAG10)
TAG11 (HRRZ@ 5Q -2Q P)
(HRRZ@ 5Q 5Q)
(HRRZ@ 5Q 5Q)
(HRRZ@ 5Q 5Q)
(HLRZ@ 5Q 5Q)
(CAIE 5Q (QUOTE ZVAL:) S)
(JRST 0Q TAG13)
(MOVEI 5Q (QUOTE 5Q))
(JRST 0Q TAG12)
TAG13 (MOVEI 5Q (QUOTE 3Q))
TAG12 (MOVEM 5Q 0Q P)
(JRST 0Q TAG4)
TAG10 (MOVEI 5Q (QUOTE 2Q))
(MOVEM 5Q 0Q P)
TAG4 (MOVEI 3Q (QUOTE NIL))
(MOVE 2Q 0Q P)
(MOVE 1Q -2Q P)
(CALL 3Q (E PP-FORMAT) S)
(MOVEI 1Q (QUOTE NIL))
(SUB P (C 3Q 0Q 3Q 0Q))
(POPJ P)
NIL
(LAP ZPP-? SUBR)
(PUSH P 1Q)
(PUSH P (C 0Q 0Q (QUOTE NIL) 0Q))
(HLRZ@ 5Q 1Q)
(CAIE 5Q (QUOTE *?) S)
(JRST 0Q TAG5)
(MOVEI 5Q (QUOTE "?") S)
(JRST 0Q TAG4)
TAG5 (MOVEI 5Q (QUOTE "??") S)
TAG4 (MOVEM 5Q 0Q P)
(HRRZ@ 4Q -1Q P)
(JUMPN 4Q TAG10)
(MOVE 1Q 5Q)
(CALL 1Q (E PRINC) S)
(JRST 0Q TAG7)
TAG10 (MOVE 1Q 4Q)
(CALL 1Q (E ATOM) S)
(JUMPN 1Q TAG12)
(HRRZ@ 4Q 4Q)
(JUMPE 4Q TAG11)
TAG12 (MOVEI 1Q (QUOTE SPRINT) S)
(JRST 0Q TAG1)
TAG11 (MOVE 1Q 0Q P)
(CALL 1Q (E PRINC) S)
(CALL 0Q (E CHRPOS) S)
(MOVE 2Q 1Q)
(HRRZ@ 1Q -1Q P)
(HLRZ@ 1Q 1Q)
(CALL 2Q (E SPRINT) S)
TAG7 (MOVEI 1Q (QUOTE NIL))
TAG1 (SUB P (C 2Q 0Q 2Q 0Q))
(POPJ P)
NIL
(SETQ %%ENDGP (LAST PRETTYPROPS))
(NCONC PRETTYPROPS '(ZPATF ZPATEI ZPATES ZPATMI ZPATMS))
(PROGN (DEFPROP ZINIT
(LAMBDA NIL
(SETQ ZHIGH 1Q)
(SETQ ZLOW 0Q)
(SETQ ZRANGE '(1Q 0Q))
(SETQ ZGENPROCN 0Q)
(SETQ ZGENPROCS NIL)
(SETQ ZTRACEDFNS NIL)
(SETQ ZINDEX 'INITIAL-CONTEXT)
(SETQ DEFDEMON '*DEMON)
(SETQ DEFZVAL ZLOW)
(SETQ DEFACCUM ZHIGH)
(SETQ ZNET (LIST NIL))
(SETQ DPROCS (LIST NIL))
(SETQ APROCS (LIST NIL))
(SETQ EPROCS (LIST NIL))
(SETQ ZSAVE (SETQ ZSAVEP '(TOP-LEVEL)))
(SETQ ZGLOBEV NIL)
(SETQ ZALIST NIL)
(SETQ ZSUCCEED? NIL)
(SETQ ZDEMON NIL)
(SETQ ZRESETV NIL)
(SETQ ZVALUE NIL)
(DRM ! ZREAD!)
(DRM & ZREAD&)
(DRM ? ZREAD?)
(SETQ FUZZYMACS T)
(MAPC (FUNCTION (LAMBDA (X Y) (PUTPROP X Y 'PRINTMACRO)))
'(*! *!! *& *&& *?Q *??: *? *?? PROC FOR IF IFALL IFANY ZAND ZOR)
'("!" "!!" "&" "&&" "?@" "??:" ZPP-? ZPP-? ZPP-PROC ZPP-FOR PP-LABELS PP-LABELS PP-LABELS
BRACKETS BRACKETS))
(DEFPROP ZCALL (NIL NIL NIL NIL) ERXACTION)
(DEFLIST (ADD ASSERT DEDUCE ERASE FETCH FOR GOAL REMOVE TRY)
(NIL T T T)
ERXACTION)
T)
EXPR)
(DEFPROP ZUNINIT
(LAMBDA NIL
(FUZZYMACS NIL)
(REMLIST '(*! *!! *& *&& *?Q *??: *? *?? PROC FOR IF IFALL IFANY ZAND ZOR)
'PRINTMACRO)
(REMLIST '(ADD ASSERT DEDUCE ERASE FETCH FOR GOAL REMOVE TRY) 'ERXACTION)
T)
EXPR)
(DEFPROP ZCLEANUP
(LAMBDA NIL
(RPLACD %%ENDGP NIL)
(REMOB %%ENDGP FUZZYFNS ZINIT ZUNINIT ZCLEANUP)
(INC NIL T)
(OUTC NIL T)
(FLUSH)
(GC)
(INITFL (FUZZY . INI))
(INITFN (FUNCTION
(LAMBDA NIL
(MSG T "FUZZY - 3/10/78" T)
(ERRSET (TYPE LSP: (FUZZY . MSG)) NIL)
(EXCISE)
(SETQ %%TIME (TIME))
(SETQ %%DTIME (DTIME))
(SETQ %%GCTIME (GCTIME))
(SETQ %%SPEAK (SPEAK))
(INITFN NIL))))
(SYSCLR))
EXPR))